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Foreword 


This is a book about writing programs, and understanding them as you write them. Most large 
computer programs arc never completely understood; if they were, they wouldn't go wrong so 
often and we would l>e able to describe what they do in a scientific way. A good language should 
help to improve this state of affairs. 

There are many ways of trying to understand programs. People often rely too much on one 
way, which is called “debugging" and consists of nmning a partly-understood program to see 
if it docs what you expected. Another way. which ML advocates, is to install some means of 
tinderstanding in the very programs themselves. 

Standard ML was designed with this in mind. There are two particular ways-of- 
understanding built in to Standard ML; one is types for understanding data, the other is the 
module system for understanding the structure of the large-scale programs. People who program 
in a language with a strong type system, like this one. often say that their programs have fewer 
mistakes, and they understand them better. 

The authors focus upon these features of Standard ML. They are well equipped to help you 
to understand programming; they an* experienced teachers as well as researchers of the elegant 
and simple ideas which inspire good programming languages and good programming style. 

Above all they haw written a book which is a pleasure to read; it is free of heavy detail, 
but doesn't avoid tricky points. 1 hope you will enjoy the book and Ik* able to use the ideas, 
whatever programming language you use in the future. 


Robin Milner 
Cambridge University 
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Preface 


Programs consume data and produce data; designing a program requires a thorough under¬ 
standing of data. In ML. programmers can express their understanding of the data using the 
sublanguage of types. Once the types are formulated, the design of the program follows naturally. 
Its shape will reflect the shape of the types and type definitions. Most collections of data, and 
hence most type specifications, are inductive, that is, they are defined in terms of themselves. 
Hence, most programs are recursive; again, they are defined in terms of themselves. 

The first and primary goal of this book is to teach you to think recursively about types 
and programs. Perhaps the best programming language for understanding types and recursive 
thinking is ML. It has a rich, practical type language, and recursion Ls its natural computational 
mechanism. Since our primary concern is the idea of recursion, our treatment of ML in the first 
eight chapters is limited to the whys and wherefores of just a few features: types, datatypes, 
and functions. 

The second goal of this book is to expose you to two important topics concerning large 
programs: dealing with exceptional situations and composing program components. Managing 
exceptional situtations is possible, but awkward, with recursive functions. Consequently, ML 
provides a small and pragmatic sublanguage, i.c., exception, raise, and handle, for dealing 
with such situations. The exception mechanism can also be used as a control tool to simplify 
recursive definitions when appropriate. 

Typically, programs consist of many collecti oils of many types and functions. Each collection 
is a progam component or module. Constructing large programs means combining modules but 
also requires understanding the dependencies among the components. ML supports a powerful 
sublanguage for that purpose. In the last chapter, we introduce you to this language and the art 
of combining program components. The module sublanguage is again a functional programming 
language, just like the one we present in the first eight chapters, but its basic values are modules 
(called structures) not integers or booleans. 

While The Little MLer provides an introduction to the principles of types, computation, 
and program construction, you should also know that ML itself is more general and incorporates 
more than we could intelligibly cover in an introductory text. After you haw mastered this book, 
you can read and understand more advanced and comprehensive books on ML. 

Acknowledgments 

We are indebted to Benjamin Pierce for numerous readings and insightful suggestions on improv¬ 
ing the presentation and to Robert Harper for criticisms of the book and guidance concerning 
the new module system of ML. Michael Ashley. Cynthia Brown. Robbv Findler, Matthew 
Flatt. Jeremy Frens. Steve Ganz, Daniel Grossman, Erik Hilsdale, Julia Lawall, Shinn-Der Lee, 
Michael Levin, David MacQueen. Kevin Millikin. Jon Riecke. George Springer, and Mitchell 
Wand read the book at various stages of development and their comments helped produce 
the final result. We also wish to thank Robert Prior at MIT Press who loyally supported us 
for many years. The book greatly benefited from Dorai Sitaram's incredibly clever Scheme 
typesetting program SDT^X. Finally, we would like to thank the National Science Foundation 
for its continued support and especially for the Educational Innovation Grant that provided us 
with the opportunity to collaborate for the past war. 



What You Need to Know to Read This Book 


You must bo comfortable reading English and performing rudimentary arithmetic. A willingness 
to use paper and pencil to ensure understanding is absolutely necessary. 

Reading Guidelines 

Do not rush through thus book. Read carefully; valuable hints are scattered throughout the text. 
Do not read the first eight chapters in fewer than three sittings. Allow one sitting at least for 
each of the last two chapters. Read systematically. If you do not fully understand one chapter, 
you will understand the next one even less. 

The book is a dialogue about interesting examples of ML programs. If you can, try the 
examples while you read. Since ML implementations are predominantly interactive, the pro¬ 
grammer can immediately participate in and observe the behavior of expressions. We encourage 
you to use this interactive read-evaluate-and-print loop to experiment with our definitions and 
examples. Some hints concerning experimentation are provided below. 

We do not give any formal definitions in this book. We believe that you can form your own 
definitions and thus remember and understand them better than if we had written them out for 
you. But be sure you know and understand the morals that appear at the end of each chapter. 

We use a few notational conventions throughout the text, primarily changes in typeface for 
different classes of symbols. Variables are in italic. Basic data, including numbers, booleans, 
constructors introduced via datatypes, are set in sans serif. Keywords, e.g., datatype, of, 
and, fun, are in boldface. When you experiment with the programs, you may ignore the 

typefaces but not the related framenot<«*. To highlight this role of typefaces, the ML fragments 

in framenotes are set in a typewriter face. 

Food appears in many of our examples for two reasons. First, food is easier to visualize 
than attract ideas. (This is not a good book to read while dieting.) We hope the choice of 
food will help you understand the examples and concepts we use. Second, we want to provide 
you with a little distraction. We know how frustrating the subject matter can be, and a little 
distraction will help you keep your sanity. 

You are now ready to start. Good luck! We hope you will enjoy the experiences waiting for 
you on the following pages. 

Bon appetit! 

Matthias Felleisen 

Daniel P. Friedman 
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Experimenting with SML 


The book's programming language is a small subset of SML. With minor modifications, the 
examples of the first nine chapters of the book will mn on most implementations of SML. For 
the tenth chapter, an implementation based on the 1996/97 revision of SML must be used. 

The best mode to conduct experiments is 

1. to place Compiler.Control.Print.printDepth :■ 20; into a newly created file, 

2. to append the desired definitions (boxes) to the file, 

3. to add a semicolon after each box, and 

4. to employ use "<filename>“; to load the definitions into the read-eval-print loop. 
SML is then ready to accept and evaluate expressions that refer to the new definitions. 
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Experimenting with Objective Caml 


Objective Caml is a major dialect of the family of ML languages. The best mode to conduct 
experiments with Objective Caml is 

1. to place #print.depth 20;; into a newly created file, 

2. to append the desired definitions (boxes) to the file, 

3. to add two semicolons after each box, and 

4. to employ #use "<f ilenane>";; to load the definitions into the read-eval-print loop. 
Objective Caml is then ready to accept and evaluate expressions that refer to the new definitions. 

Objective Caml's syntax differs slightly from SMI.'s. By using the following hints sys¬ 
tematically, you can easily translate the boxes from the first nine chapters of the book into 
Objective Caml. Each hint is marked by a chapter number and a frame number. If you are 
using Objective Caml, annotate the corresponding frames before you start reading to remind 
you where the differences between SML's and Objective Caml’s syntaxes first appear. 

1:16 Replace datatype by type: 

type seasoning ■ 

Salt 

I Pepper 

2:15 Replace fun by let rec and use function. The patterns omit the function name: 

let rec only.onions - 
function 
(Skewer) 

-> true 
I (Onion(x)) 

-> only_onions(x) 

I (Lamb(x)) 

-> false 
I (Tomato(x)) 

-> false 

4:66 To specify the precise types that a function should consume and produce, wrap the function 

name with the type assertion: 

let rec (has.steak : meza * main * dessert -> bool) - 
function 
(x,Steak,d) 

-> true 
I (x,ns,d) 

-> false 
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7:11 Since constructors are not functions in Objective Caml, define hot .maker as follows: 


let rec hot.maker(x) - 
function 
(x) 

-> Hot(x) 

8:93 Curried definitions with matching on the first consumed value need parentheses around 
the function being returned when the second consumed value is placed in parentheses as 
we do here: 

let rec combine.c * 
function 
(Empty) 

-> (function 

( 12 ) 

-> 12 ) 

I (Cons(a,11)) 

-> (function 
( 12 ) 

-> Cons(a,combine_c(ll)(12))) 

9:14 Replace No.bacon 0 by (No.bacon 0). 

9:84 Replace (exp i handle pattern ■> ezp 2 ) by (try ezpi with pattern -> erp 2 ). 

Also, replace div by /: 

let rec find(n,boxes) - 

(try check(n,boxes,list.item(n,boxes)) 
with 

Out_of.range 

-> find(n / 2,boxes)) 
and check ■ 
function 

(n,boxes,Bacon) 

-> n 

I (n.boxes,Ix(i)) 

-> find(i,boxe8) 

10 The examples of this chapter can be expressd in Objective Caml. but see the manual for 
the syntax of modules and simple examples that use them before you do. 
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Is this a number: 5? 

Yes. 

Is 5 also an integer? 

Yes, it is. 

Is this a number: 17? 

Yes, it is also an integer. 

Is thus a number: '23? 

Yes, but we don’t use negative integers. 

Is this an integer: 5.32? 

No, and we don’t use reals. 

What type of number is 5? 

in/. 1 


1 Tin* aymbol ml stand* for “InUnor." 

Quick, think of another integer! 

How about 13? 

What type of value is true? 

bool. 1 


1 The symbol bool oIjuhIk for "boolean." 

What type of value is false? 

bool. 

Can you think of another bool? 

No. that’s all there is to bool. 

Are there more ints than bools? 

11 V 

Lots. 

What is int? 

” 4 . 

A type. 

What is bool? 

13 

Another type. 


Building Blocks 3 
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What is a type? 

A type is a name for a collection of values. 

What is a type? 

Sometimes we use it as if it were the 
collection. 


Does this define a new type? * Yes. it does, 

datatype seasoning = 

Salt 

| Pepper 


Is this a seasoning : Salt? 

Yes. it is. 

And Pepper? 

It’s also a seasoning. 

Can you think of another seasoning ? 

No. there arc two. And that's all. 

Have we seen a type like seasoning before? 

30 Yes. bool also has just two values. 

Does this define a new type, too? 

Yes. it does. 

datatype num = 


Zero 


| One.more.than of num 


Is this a num : Zero? 

Obviously, just like Salt is a seasoning. 

Is One_more-than(Zero) a num? 

Yes, because One_more_than constructs a 


num from a num. 

4 
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How does One.more.than do that? 


What is the type of 
One.more_than( 
One_more_than( 
Zero))? 


What is 

One.more.than( 

0 )? 


What is the type of 
One_more.than( 
One_more.than( 
One.more.than( 
One_more_than( 
Zero))))? 


What is the difference between Zero and 0? 


Correct. In general, if two things belong to 
two different types, they cannot be the same. 


Are there more nums than bools ? 


Are there more nums than ints ? 


Building Blocks 


24 


We gave it Zero, which is a num, and it 
constructs a new num. 


num, because One.more.than constructs a 
num from a num and we agreed that 
One.more_than( 

Zero) 
is a num. 

This Is nonsense, 1 because 0 is not a num. 

1 We uw the word “nonamae" for an rxprr**iou that haa no 

*yp* 


num. 


The value Zero belongs to the tyjw* num, 
whereas 0 belongs to ml. 


A type is a name for a collection of values, 
and there is no overlap for any two distinct 
types. 
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What does this define? 

datatype a 1 open-faced-sandwich — 
Bread of a 

| Slice of a open-facedsandwich 


It looks like the definition of a new type, but 
it also contains this funny looking a. 


We 


'a for a, but it is pronounced alpha. 


What is Bread(O)? 


It looks like an element of 
o open-facedsandwich. 


And what is Bread(true)? It also looks like an clement of 

o open.facedsandwich. 

But how can both Bread(O) and Bread(true) 
be elements of the same type? 


They can't! They belong to two different What does that mean? 

types: 

int open-facedsandwich 
and 

bool open-facedsandwich. 


It means that Okay, that makes sense. 

datatype a open-facedsandwich = 

Bread of o 

| Slice of q opcn-facedsandwich 

^^ i_ ^^^—i 

is not a type definition but a shape that 
represents many different datatypes. 
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So. if we write int opcn.facecLsanduich, we 
mean a type like this. 1 

Writing bool opcn-jacaLsandwich is as if we 
had defined a new datatype. 

f ' ' 

datatype int open-facedsandwich = 

Bread of int 

| Slice of int open.facaLsandwich 

QS> 

datatype bool open-facaLsandwich = 

Bread of bool 

| Slice of bool opcn^faccdsandwich 

What does bool optn.facetLsandwich mean? 


1 Tint moikrr 0 iiulirAint thnl this <irAmt *nn » 
ungnunniAlicAl. We um thk* unurammAiiral definition to 
explitin a optnjutdjandmich. 


So what is int open.faced-»andurich ? 

The simplest way of saying "This is an 
instance of the definit ion of 

o open-faccd-sandwich 

where a stands for int.” 

And what is bool opcn.JactiLsnndunch ? 

The simplest way of saying This is an 
instance of the definition of 

a open.faced.sandwich 

where o stands for bool” 

What is num openJocaLsandwich ? 

40 

The simplest way of saying “This is an 
instance of the definition of 

q open .fa ccd. mndunch 
where o stands for num.” 

Does that also mean that we can derive as 
many types as we want from the shape 
q open-factdsandunch ? 

° Yes. 

Is 

Bread(O) 

an 

int open-facetLsandwuch ? 

“ Yes. 


Building Blocks 


7 









43 


Why does it belong to 
int open-faced-sandwich 
and not 

bool opcn-facc<Lsandwich ? 

And what Is the type of Bread(true)? 


Because 0 is an int , and Bread constructs 
elements of type int operufacedsandwich 
when it is given an int. 


bool open.face/Lsandunch. 


To what type does It belongs to num open.facetLsandwich. 

Bread( 

One_more_than( 

Zero)) 

belong? 


Is 

Bread(Bread(0)) 

an 

(int openjacedsandwich) 
open.Jaced.sandwichl 


And finally, since (num opcn-facetLsandunch) 
is also a type, to what type does 
Bread< 

Bread( 

One.more.than( 

Zero))) 

belong? 


Yes, because int opcnJaauLaandtvich is a 
type, and we said that we can derive a new 
type from a opcn-facexL/tandwich by 
replacing a with any type. 


It belongs to 

(num open-facedsandwich) 
open.facetLsandwich. 

Wow, types are types. 


The First Moral 

Use datatype to describe types. When a 
type contains lots of values, the datatype 
definition rejers to itself. Use a with 
datatype, to define shapes. 
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Here is another type definition. 

It contains four alternatives, not just two. 

datatype shishJ:ebab = 

Skewer 

| Onion of shish-kebab 
j Lamb of shuth.kebab 
| Tomato of shish.kebab 


What is different about it? 


What is an element of this new type? 

How about 

Skewer? 

And another one? 

Here's one: 

Onion( 

Skewer). 

And a third? 

Here’s one more: 

Onion( 

Lamb( 

Onion( 

Skewer))). 

Are there only Onions on this shuthJccbab: 

Skewer? 

true, because there is neither Lamb nor 

Tomato on the Skewer. 

Are there only Onions on this shuth-kebab: 
Onion( 

Skewer)? 

« . 
true. 

And how about: 

Lamb( 

Skewer)? 

false, it contains Lamb. 


Matchmaker. Matchmaker 
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Is it true that 
Onion( 

Onion( 

Onion( 

Skewer))) 

contains only Onions? 


true. 


And finally: 
Onion( 

Lamb( 

Onion( 

Skewer)))? 


false. 


Is it true that 
5 

contains only Onions? 


What kind of question is that? That looks 
like nonsense, because 5 is an int, not a 
ahish-kcbob. 


Write the function only.onions using fun. =, Of course, you can't write this function, yet. 
|, (, ), true, false. Skewer, Onion. Lamb, and Okay, you deserve something sweet for 
Tomato. enduring this last question. 


What kind of things does only.oniona 


consumer 


shish-kebabs. 


And what does it produce? 


bools. 


Are you anxious to see the first function 
definition? 


Yes. we can't wait for the next page. 



com air 










Here it is. 

fun only.onions ( Skewer) 

= true 

| on/y.onums(Onk>n(z)) 

= only.onions (x) 

| on/y_onions(Lamb(x)) 

= false 

| only.onions( Tomato(j)) 
= false 


Yes, the second box is not a function 
definition. Why is the second box there? 


only.onions 1 : 
shish.kebab -* Itool 


Did you notice the second box? 

1 Thta box (lyp® aiwrtion) U a part of lb® program. It I* 
tranucribed in 

(only.onions : *hi*h.k®bab -> bool) 

to that implementation* can verify your thought* about the 
typo of a function. Th# tranarription murt alway* follow lb® 
function daflnition. never precede it. In general, If a box 
contain* a bullet a, then you must transcribe it by putting a 
left parenthcai* in front of the content* and a right 
parenthe»i* behind it. The arrow is transcribed with two 
characters: - followed by >. 


The second box states what only.onions '* What is in front of (i.e., to the left of) the 

consumes and produces. symbol — is the type of things that the 

function consumes, and what is behind —* is 
the type of things it produces. 


Ls 

shish.kcbab —* bool 

the type of only.omons ? 

Yes, shish.kebab —* bool is the type of 
only.onions just as inf is the type of 5. 

Which item is mentioned first in the 
definition of shish.kebab ? 

Skewer. 

Which item is mentioned first in the 
definition of only.onions ? 

l * Skewer 


Matchmaker. Matchmaker 
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Which item is mentioned second in the 
definition of shisfukebab ? 

20 Onion. 

Which item is mentioned second in the 
definition of only.onions? 

Onion. 


22 

Does the sequence of items in the datatype Yes, it does. Is this always the case? 
definition correspond to the sequence in 
winch they appear in the function definition? 


Almost always. 


Okay. 


What is the value of ** true. 

only-onions( 

Onion( 

Onion( 

Skewer)))? 


And how do we determine the answer of 
only .onions ( 

Onion( 

Onion( 

Skewer)))? 


We will ueed to pay attention to the function 
definition. 

fun only.onions (Skewer) 

= true 

| oniy.oniorw(Onion(i)) 

= only.onions(x) 

| on/|/.oniorw(Lamb(x)) 

= false 

| on/y.or»iofui(Tomato(i)) 

= false 


Does No. 

only m onions( 

Onion( 

Onion( 

Skewer))) 

match 


0niy_ortio7w(Skewer)? 


14 
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Why not? 


Because 

Onion( 

Onion( 

Skewer)) 

does not match Skewer. 


Does 

only.onions( 

Onion( 

Onion( 

Skewer))) 

match 


ori/y_omorw(Onion(x))? 


Yes, if x stands for 
Onion ( 

Skewer). 


Let x stand for 
Onion( 
Skewer). 


In that case*, we have found a match. 


Then what is 
only.onions ( 
Onio n( 
Skewer))? 


It is 

only.onions(z), 

which is what follows the *=* below 
oniy.oniorw (Onion (x)) in the definition of 
only.onions . with x replaced by what it 
stands for: 

Onion ( 

Skewer). 


Why do we need to know the meaning of 

only.onions( 

Onion( 

Skewer))? 


Because the answer for 
only.omons{ 

Onion( 

Skewer)) 

Is also the answer for 
only _ onions ( 

Onion( 

Onion( 

Skewer))). 


Matchmaker, Matchmaker 
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How do we determine the answer of 
only .onions ( 

Onion( 

Skewer))? 


Does 

only.onions ( 

Onion( 

Skewer)) 

match 

ordj/.onions(Skewer)? 


Why not? 

54 

Because 

Onion( 

Skewer) 

does not match Skewer. 

Does 

only.onions( 

Onion( 

Skewer)) 

match 

only.onions(Orwon{x)Y! 

Yes, if x stands for Skewer, now. 

So U*t x stand for Skewer now 

In that case, we have found our match again. 


Then what is only.onions( Skewer)? 

3T It is 

only, onions (z), 

which is what follows the *=’ below 
on/y_tmiorw(Onion(i)) in the definition of 
only.onions, with x replaced by what it 
stands for: 

Skewer. 

16 
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Why do we need to know what the meaning Because the answer for 

onfy_onions (Skewer) 

on/y. onions (Skewer) ^ the f or 

is? only.onions( 

Onion( 

Skewer)), 

which is the answer for 
only.onions( 

Onion( 

Onion( 

Skewer))). 


How do we determine the answer of 
only-onions ( Skewer)? 




We need to match one more time. 


I 


Docs 

onfy.onions(Skewer) 

match 

only.on ions (S kewer) ? 


Completely. 


Then what is the answer? 


true. 


Are we done? 


Yes! The answer for 
only.onions( 

Onion( 

Onion( 

Skewer))) 

is the same as the answer for 
only.onions{ 

Onion( 

Skewer)), 

which is the same as the answer for 
only .onions (Skewer), 

which is 
true. 


Matchmaker. Matchmaker 
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What is the answer of 
only.onions{ 

Onion( 

Lamb( 

Skewer)))? 

43 

false, isn’t it? 

Does 

only.onions( 

Onion( 

Lamb( 

Skewer))) 

match 

on/y_cmtons(Skewer)? 

44 

No, it does not match. 

Why not? 

44 

Because 

Onion( 

Lamb( 

Skewer)) 

does not match Skewer. 

Does 

only.onions( 

Onion( 

Lamb( 

Skewer))) 

match 

46 

Yes, if x now stands for 

Lamb( 

Skewer). 

only.onions (Onion( x ))? 

Next let x stand for 

Lamb( 

Skewer). 

47 

In that case, they match. 
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Then what is 
only .onions { 
Lamb( 
Skewer))? 


It is 

only, onions (x), 

which is what follows the *=’ below 
oniy_oniorw(Onion(z)), with x replaced by 
what it stands for: 

Lamb( 

Skewer). 


Why do we need to know what 
only.onions( 

Lamb( 

Skewer)) 

is? 

40 

Because the answer for 
only.onions( 

Lamb( 

Skewer)) 

is the answer for 
only.ontons( 

Onion( 

Lamb( 

Skewer))). 

Does 

only.onions( 

Lamb( 

Skewer)) 

match 

on/y_oniorw(Skewer)? 

40 No. 

Does 

only, onions ( 

Lamb( 

Skewer)) 

match 

only.onions( Onion(i))? 

“ No. 

Does 

only.onions( 

Lamb( 

Skewer)) 

match 

on/y_onionfl(Lamb(i))? 

Yes, if x stands for Skewer, now 


Matchmaker. Matchmaker 
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And now what is the answer? 


false, because false follows the — below 
oniy_onM>rw(Lamb(x)) in the definition of 
only.onions. 


Are wc done? Yes! The answer for 

only.onions ( 

Onion( 

Lamb( 

Skewer))) 

is the same as the answer for 
only.onions( 

Lamb( 

Skewer)), 

which is 
false. 


Here are our words: 

“only.onions consumes a shish.ke.bab and 
checks to see whether it is only edible by 
an onion lover." 


Here are our words again: 

‘'only.onions looks at each piece of the 
shish^kebab and. if it doesn't encounter 
Lamb or Tomato, it produces true.” 


So wlmt is the value of 

Nonsense. We already said that 5 is an int , 

only.onions( 5)? 

not a shishJ&bab. 

Is 

“ Yes. 

Tomato( 


Skewer)? 


an element of ahiahJeebab ? 
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Describe how the function only.onions 
accomplishes this. 


Describe the function only.onions in your 
own words. 
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Is 

Onion( 

Tomato( 

Skewer)) 

an element of shish.kcbab ? 


Since 

Tomatoi 

Skewer | 

is an element of shishJcebab, we can also 
wrap an Onion around it. 


And how about another Tomato? 




Sure. 


Is ' Of course, there is no Lamb in it. 

Tomato( 

Onion( 

Tomato( 

Skewer))) 

a vegetarian shish kebab? 


Is Yes, it only contains Onions. 

Onion( 

Onion( 

Onion( 

Skewer))) 

a vegetarian shush kebab? 


Define the function 
is.vegetarian : 
shish.kebab -* bool. 

which returns true if what it consumes docs 
not contain Lamb. 


Shouldn't the line for Tomatoes in this 
function be the same as the line for Onions? 


fun is.vegetarian(Skewer) 

= true 

! W-we 0 etarum(Onion(ir)) 

= is. vegetarian (x) 

| w.t’eyefanan(Lamb(x)) 

= false 

i w.ve 0 etarian(Tomato(x)) 
= is.vegetarian(x) 


is.vegctarian : 
shishJcebab —* bool 


Matchmaker, Matchmaker 
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Yes, that's right. Let’s move on. What does 

64 

It defines a datatype that is similar in shape 
to shistukebab. 

datatype a shish = 

Bottom of q 
| Onion of a shish 
| Lamb of a shish 
| Tomato of a shish 

define? 


Do the definitions of a shish and shish-kebab 
use the same names? 

65 

Yes, the names of the constructors are the 
same, but clearly from now on Onion 
constructs an a shish and no longer a 
shishJcebab. 

What is different about the new datatype? 

A shish.kcbab is always on a Skewer, an a 
shish is placed on different kinds of Bottoms. 

Here are some bottom objects. 

Sure, rod shish makes some form of shush 

1 

datatype rod = 

Dagger 
| Fork 
| Sword 

M (Mlu. 

Are they good ones? 


Think of another class of bottom objects. 

66 

We could move all of the food to various 
forms of plates. 


datatype plate = 

Gold-plate 
| Silver-plate 
| Brass-plate 



What is the type of 

Onion( 

Tomato( 

Bottom(Dagger)))? 

m It belongs to rod shish. 
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Onion( 

Tomato( 

Bottom(Dagger))) 
a vegetarian rod shish ? 


Sure it is. It only contains Tomatoes and 
Onions. 


Does 

Onion( 

Tomato( 

Bottom(Gold.plate))) 
belong to plate shish ? 


Sure, because Gold plate is a plate and plate 
Is used as a Bottom, and Tomatoes and 
Onions can be wrapped around Bottoms. 


Onion( 

Tomato( 

Bottom(Gold.plate))) 
a vegetarian shish kebab? 


Sure it is. It is basically like 
Onion( 

Tomato( 

Bottom( Dagger))) 

except that we have moved all the food from 
a Dagger to a Gold.plate. 


Let's define the function 
is.veggic : a shish —* bool. 
which checks whether a shish kebab contains 
only vegetarian foods, regardless of what 
Bottom it is in. 


It only differs from is.vegclarian in one part. 



This new function matches against arbitrary 
Bottoms, whereas is.vegetarian only matches 
against Skewers. 


Matchmaker, Matchmaker 
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This is nonsense. 


Let’s determine the value of 
is. veggie ( 

Onion( 

Fork)). 

Why? 75 Because Onion constructs a shiah from a 

shish, which does not include Fork. 

What is the value of ™ true. 

is.veggie ( 

Onion( 

Tomato( 

Bottom(Dagger))))? 


What type of thing is 
Onion( 

Tomato( 

Bottom( Dagger)))? 

What is the value of * It is true. too. 

is.veggie( 

Onion( 

Tomato( 

Bottom (Gold .plate))))? 


We said it belonged to the type rod shiah. 


And what type of thing is 
Onion( 

Tomato( 

Bottom(Gold.plate)))? 


It belongs to the type plate shish, which has 
the same shape as rod shish, but is a distinct 
type. 


But aren’t both examples of a shish? 


Yes, they are. The two types only differ in 
how q is replaced by a type. 


How can is.vcggie consume things that Perhaps we should think of is.vcggie as two 

belong to different types? functions. 
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What functions should we think about? 

S3 

One function has the type 


rod shush — * bool 


and the other one has the type 


plate shish —* bool. 

Where else do the functions differ? 

*3 

Nowhere—they are identical otherwise. 

So this is how we could have written the 

•4 

All we have to change is the tyi>e of Bottom 

function is.veggic for ahishes on rods. 

and the type of the function. 

datatype rod = 


datatype plate = 

Dagger 


Gold-plate 

| Fork 


| Silver .plate 

j Sword 


j Brass.plate 



fun u_t>e 0 «/ic(Bottom(x)) 


fun ts.reg^ief Bottom (x)) 

= true 


= true 

| ij_veg£ie(Onion(z)) 


! »a_t’e 00 te(Onion(x)) 

= is.veggie(x) 


= is.veggtc(x) 

| w_t>c 0 <pe(Lamb(x)) 


| w.wr 00 i>(Lamb(x)) 

= false 


= false 

| w_e« 70 ie(Tomato(x)) 


| w_ec 90 »c(Tomato(x)) 

= is.vcggic(x) 


= is.veggie(x) 



is. veggie : 

is. veggie : 

rod shush —* bool 

plate shush —* bool 

• 

• 

And how would we write the function 
is.veggie for shishes on plates? 

Whew, that's a lot of writing! 

What type of value is 

w 

bool. 

is. veggie ( 

Onion( 


Tomato( 


Bottom(52))))? 



Matchmaker, Matchmaker 
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M 

What type of value is bool. 

is.vcggie( 

Onion( 

Tomato( 

Bottom( 

One.more.than(Zero)))))? 


What type of value is bool. 

is.veggie{ 

Onion( 

Tomato( 

Bottom(false))))? 


60 

Does that mean is.veggie works for all five Yes, and all other shish types that we could 
types: rod shish , plate shish. int shish , possibly think of. 

nurn shish, and bool shish ? 


What is the bottom object of *" All the food is on a dagger. 

Onion( 

Tomato( 

Bottom (Dagger)))? 


What is the bottom object of °* All the food is now on a gold plate. 

Onion( 

Tomato( 

Bottom(Gold -plate)))? 


What is the bottom object of *' All the food is on a 52. 

Onion( 

Tomato! 

Bottom(52)))? 


What is the value of Dagger. 

what.bottom{ 

Onion( 

Tomato! 

Bottom! Dagger))))? 
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What is the value of 
what.bottom( 

Onion( 

Tomato( 

Bottom (Gold .plate))))? 

Gold-plate. 

What is the value of 
what.bottom( 

Onion( 

Tomato( 

Bottom(52))))? 

M 52. 

So what type of value does whaLbottom 
consume? 

a shish. which means all types of shishes. 

And what type of value does whaLbottom 
produce? 

M It produces rods, plates, and infs. And it 
looks like it can produce a whole lot more. 


Ih there a simple way of saying what type of Here Is our way: 

value it produces? “If o is a type and we use whaLbottom on a 

value of type a shish, then the result Is of 

type a." 


How many variants of shishes must 
what.bottom match? 


There are four. 


fun what.bottom( Bottom( x)) 


| te/«iL6of/om(Onion(r)) 


| tc/»at_6o//om(Lamb(j)) 


I u.7jaf_6of/om(Tomato(i)) 


What is the value of 52. 

what.bottom( 

Bottom(52))? 


Matchmaker. Matchmaker 
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What is the value of ! Sword. 

whaLbottom( 

Bottom (Sword ))? 


What is the value of 
what.bottom( 

Bottom(z)), 

no matter what z is? 

So what goes into the first blank line of 
whaLbottom ? 

What is the value of 
what.bottom{ 

Tomato( 

Onion( 

Lamb( 

Bottom(52)))))? 


What is the value of 
what.bottom{ 
Onion( 

Lamb( 

Bottom(52))))? 


What is the value of 
what.bottom{ 

Lamb( 

Bottom(52)))? 

“ 52. 

What is the value of 

” 52. 

what.bottom{ 


Bottom(52))? 
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Does that mean that the value of Yes, all four have the same answer: 52. 

what.bottom( 

Tomato( 

Onion( 

Lamb( 

Bottom(52))))) 

Ls the same as 
whaLbottom( 

Onion( 

Lamb( 

Bottom(52)))), 
which is the same as 
whaLbottom( 

Lamb( 

Bottom(52))), 

which is the same ns 
whai-bottorn( 

Bottom(52))? 


Fill in the blanks in this skeleton. 

fun what.bottom(Bottom(x)) 

= x 

| whaLbottom(On\on(x)) 

= what.bottom(x ) 

| what.bottom(\.amb{x)) 

| what.bottom(Tomato(x)) 


New this is easy. 

i- 

fun «Viai-tottom(Bottom(x)) 
= x 

| u?/ia/,6o«om(0nion(x)) 

= whaLbattom(x) 

| uhaLbottom(Lamb(x)) 

= whaLbottom(z) 
what.bottom(Tomato(x)) 
= what, bot tom (x) 


what.bottom : 
a shish — a 


The Second Moral 

The number and order of the patterns 
in the definition of a function should 
match that of the definition of the con¬ 
sumed datatype . 
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Do you like to eat pizza? 


Looks like good toppings. 


datatype pizza = 
Crust 

| Cheese of pizza 
| Onion of pizza 
| Anchovy of pizza 
| Sausage of pizza 


Here is our favorite pizza: 

Anchovy( 

Onion( 

Anchovy( 

Anchovy( 

Cheese( 

Crust))))). 

This looks too salty. 

How about removing each Anchovy? 

That would make it less salty. 

Let's remove them. VVliat is the value of 
reinove-anchovy( 

Anchovy( 

Onion( 

Anchovy( 

Anchovy( 

Cheese( 

Crust))))))? 

It should be a Cheese and Onion pizza , like 
this: 

Onion( 

Cheese( 

Crust)). 

What is the value of 
removc.anchovy( 

Sa usage ( 

Onion( 

Anchovy( 

Sausage( 

Cheese( 

Crust))))))? 

It should be n Cheese, Sausage, and Onion 
pizza, like this: 

Sausage( 

Onion( 

Sausage( 

Cheese( 

Crust)))). 

Cons Is Still Magnificent 
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Does remove.anchovy consume pizzas ? 


Yes, and it produces them, too. 


Fill in the blanks in the skeleton. We didn't expect you to know this one. 

fun remove.anchovy ( Crust) 

= Crust 

| remoue_afic/ioes/(Cheese(x)) 

| rcmove.anchovy(On\on(x)) 

| rcmoi'e_anc/joey(Anchovy(x)) 

| remot>e-anc/joi>y(Sausage(x))_J 


remove.anchovy : 


pizza —* pizza 

• 


Fill in all the blanks except for the Anchovy 
line. 

| 

fun remove.anchovy (Crust) 

= Crust 

| remoi'e_arichmry(Cheese(x)) 

= Cheesef remove_anchovy{x)) 

| rem 0 i>e_anc/»oiry(Onion(x)) 


remove.anchovyl Anchovy(x)) 


removc-anchoinj (Sausage(x)) 


The Onion and Sausage lines are similar to 
the Cheese line. 

fun remove.anchovy (Crust) 

= Crust 

| rrmoue_anchory(Cheese(x)) 

= Cheese( remove.anchovy (x)) 

| remoue_onc/ioey(Onion(x)) 

= On\on{remove.ancJwvy(x)) 

| remove-anchovy (Anchovy (x)) 

| remoue_anc/un>y(Sausage(x)) 

= Sausage(remore_anchouj/(x)) 


We’ve eaten the cheese already. 


Explain why we use Cheese. Onion, and 9 For every Cheese. Onion, or Sausage that we 
Sausage when we fill in the blanks. see, we must put one back. 
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Since remove-anchovy must produce a pizza. 
let us use Crust, the simplest pizza , for the 
line that contains Anchovy(x). 

Yes. remove-anchovy consumes pizza and 
produces pizza without Anchovy on it. 

fun remove-anchovy (Crust) 

= Crust 

| remove.anchovy{Cheese(x)) 

= Cheese( remove.anchovy (x)) 

| remove.anchovy(On\on(x )) 

= Onion( remove, a nchovy(x)) 

| remace_anc/iory(Anchovy(x)) 

= Crust 

| remoi/e_anc/i<wy(Sausage(z)) 

= Sausage(mnow_anc/ioiry(x)) 




Let’s try it out on a small pizza: 
remove.anchovy ( 

Anchovy( 

Crust)). 

That’s easy. It matches the Anchovy line, if x 
stands for Crust. And the answer is Crust. 

Is 

Crust 

like 

remove.anchovy ( 

Anchovy( 

Crust)) 

without Anchovy? 

Absolutely, but what if we had more 
anchovies? 

No problem. Here is an example: 

remove-anchovy ( 

Anchovy( 

Anchovy( 

Crust))). 

That’s easy again. It also matches the 
Anchovy line and the answer is still Crust. 
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This matches 


Okay, so what if we had onions on top: 
remove.anchovy ( 

Onion( 

Cheese( 

Anchovy( 

Anchovy( 

Crust)))))? 


remove-anchovy (On\on(x)) 

if x stands for 
Cheese( 

Anchovy! 

Anchovy( 

Crust))). 


What is the value of 

0 n i on (remoi i/e. anchovy (x)) 
if x stands for 

Cheese! 

Anchovy( 

Anchovy( 

Crust)))? 

It is the pizza that 
remove-anchovy ( 

Cheese( 

Anchovy! 

Anchovy! 

Crust)))) 

produces, with Onion added on top. 

What is the value of 
remove-anchovy ( 

Cheese! 

Anchovy( 

Anchovy( 

Crust))))? 

This matches 

rrmove-anchoryy ( Cheese! x)) 

if x stands for 

Anchovy! 

Anchovy! 

Crust)). 

And what is the value of 
Cheese(rr.moue_anc/ioey(x)) 

if x stands for 

Anchovy( 

Anchovy( 

Crust))? 

It is the pizza that 
remove-anchoiry( 

Anchovy! 

Anchovy! 

Crust))) 

produces, with Cheese added on top. 

Do we know the value of 
remove-anchovy ( 

Anchovy( 

Anchovy( 

Crust)))? 

Yes. we know that this produces Crust. 
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Does that mean that Crust is the answer? 


10 


No, we still have to add Cheese and Onion. 


Does it matter in which order we add those 
two ingredients? 


Yes, we must first add Cheese, producing 
Cheese( 

Crust) 

and then we add Onion. 


So what is the final answer? ** It is 

Onion( 

Cheese( 

Crust)). 


Can you describe in your own words what 
remove, anchovy 
does? 


Here are our words: 

u remove.anchovy looks at each topping of a 
pizza and makes a pizza with all the 
toppings that are above the first anchovy.” 


Is that what we wanted? 


No. We wanted to keep all toppings except 
for anchovies. 


Let’s try one more example: 
remove.anchovy { 

Cheese( 

Anchovy( 

Cheese( 


Crust)))). 


What kind of pizza should this make? 


It should be a double-cheese pizza. 


Check it out! It matches 

remove.anchovy (C heese( x)) 
if x stands for 
Anchovy( 

Cheese( 

Crust)). 


Cons Is Still Magnificent 
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Yes, we haw at least one Cheese topping. 


Doesn’t that mean that the result is 


Cheese( 

remo ve. anchovy ( 
Anchovy) 
Cheese) 


Crust))))? 


What does 

remove^anchovy{ 
Anchovy) 
Cheese) 
Crust))) 
match next? 


This matches 

remo w_ a nchovy ) A nch ovy ( x )). 


And the answer is 
Crust? 


Yes, and just like l>efore we need to add 
Cheese on top. 


Does that mean the final answer is Yes, but that’s not the answer we wanted. 

Cheese) 

Crust)? 


What did we want? A double-cheese pizza like 

Cheese) 

Cheese) 

Crust)), 

because that's what it means to remove 
anchovies and nothing else. 
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How do we have to change remove.anchovy 31 The Anchovy line must produce 
to get the Cheese back? remove.anchoiry(x). 

fun remove.anchovy (Crust) 

= Crust 

' rrmoue_anc/u>uy(Cheese(x)) 

= C\\eese(remove.anchoiry(x)) 
rcmovc.anchovy(Onion(x)) 

= On ion ( remove.anchovy (i)) 

] remoi;e_anc/ioi;y(Anchovy(i)) 

= remove.anchovy (x) 

| rcmovc.anchovy(Sausage(x)) 

= Sausag e(remove.anchovy(x)) 


Does this new version of remove.anchovy '* Yes, and it still produces them, 

still consume pizzas? 


You have earned yourself a double-cheese And don't forget the anchovies, 

pizza. 


Would you like even more cheese than that? 


Some people like lots of cheese. 


We could add cheese on top of the anchovies. 


Yes, that would hide their taste a bit. 


What kind of pizza is 
top.anchovy.with.cheese( 
Onion( 

Anchovy( 

Cheese( 

Anchovy( 

Crust)))))? 


Easy, there is a layer of Cheese on top of each 
Anchovy: 

Onion( 

Cheese ) 

Anchovy( 

Cheese! 

Cheese( 

Anchovy! 

Crust)))))). 


Cons Is Still Magnificent 
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And what is 

top.anchovy.mth.cheese( 

Onion( 

Cheese( 

Sausage( 

Crust))))? 


Here we don't add any Cheese, because the 
pizza does not contain any Anchovy: 

Onion( 

Cheese( 

Sausage( 

Crust))). 


Fill in the blanks in the skeleton. 

fun top.anchovy.ivith.cheese(Crust) 

= Crust 

| top.anchovy.with.cheese( Cheese(x)) 


top.anchovy.mth.chee3e(0n\on{x)) 


| top.anchovy.vnth.checse( Anchovy ( x)) 


| top.anrhovy.urith.chee8c(Sausage(x)) 


top.anchovy.with.cheese : 
pizza —* pizza 


We expect you to know some of the answers. 


fun top.anchovy.imth.cheese( Crust) 

= Crust 

| top-anchoiry.mth-cheese.(C\)eesc{x)) 

= Cheese(top.anchovy.unth-cheesfi(x)) 

| top.anchovy.with-chcc8c(0n\on(x )) 

= Onion( top. anchovy.unth.chcese(x)) 

| top. anchovy, with, cheese (A nchovy (x)) 

| top.anchovy, with-chcenc (Sa usage( x )) 

= Saus*ge(top.anchovy-tuUh-chc.c8c[x )) 


How does that skeleton compare with this ” The two skeletons are the same except for 
one? the names of the functions. 

fun remove.anchoiry(Oust) I 

= Crust 

| remove .anchovy (Cheese(x)) 

= Cheese( remove.ancho\‘y{x)) 

| remoee_anc/ioey(Onion(i)) 

= Onion {remove.anchovy{x)) 

| remove.anchoiry(AnchoYy(x)) 

j remove.anchovy (Sausage(x)) 

= Sausage(remoee_anc/»ocj/(:r)) 
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What function would we get if we filled the We would get remove-anchovy but with a 
blank in the last skeleton for different name. 

top-anchovy.mth-cheese 

with 

top-anchovy.ivith-checse(x)? 


Then what do we have to put into the blank? 
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We must at least put the Anchovy back on 
the pizza. 


And then? 


We must top it with Cheese. 


Let’s do it! ** Here it is. 

fun top.anchovy.with-cheesc{Cr ust) 

= Crust 

| top.anchovy.with-chee^e(Cheese(x)) 

= Cheese( top-anchovy. with.checae{z)) 

| top.anchoiry.wtth.chec3c(0r\ion(x)) 

= On\on(top.anchovy.with-checsc(x)) 

| top.anchovy. with-chccse( Anchovy (z)) 

= Cheese( 

Anchovy( 

top.anchovy _ urith-chccsc (x))) 

| top.anchovy.unth.chcesc(Sausage(x)) 

= Sausage(top.anchovy.wth.chce9c(x)) 


What type of value does The difference between 

top.anchovy.mth.cheese top.anchovy.xmth.checse 

produce? and 

remove-anchovy 

is one line. Cheese on top of Anchovy on n 
pizza still makes pizza, so the type of 

top.anchovy.with.cheese 

is 

pizza —» pizza. 


Cons Is Still Magnificent 
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How many occurrences of Cheese are in the 
result of 

top.anchovy _ urith.cheese( 
remove-anchovy( 

Onion( 

Anchovy( 

Cheese( 

Anchovy! 

Crust))))))? 


One. because remove-anchovy removes all 
anchovies, so that top-anchovy.with-cheese 
doesn’t add any cheese. 


How many occurrences of Cheese are in the 
result of 

rcmove.anchovy( 
top. anchovy. mth-checse( 

Onion! 

Anchovy! 

Cheese! 

Anchovy! 

Crust))))))? 


Three, because top-anchovy-witfi-cheese first 
adds Cheese for each Anchovy. Then 
remove-anchovy removes all anchovies: 
Onion( 

Cheese! 

Cheese! 

Cheese! 

Crust)))). 


Perhaps we should replace every Anchovy 
with Cheese. 


We just did that for one pizza. 


Is it true that for each Anchovy in x 
remove-anchovy ( 
top.anchovy-with-cheese{x)) 

adds some Cheese as long as x Is a pizza? 


Yes. and it docs more. Once all the cheese is 
added, the anchovies are removed. 


So is this the correct definition of 
subst.anchovy .by.cheese ? 

fun subsLanchovy.by-cheese(x) 

= remove .anchovy ( 

top -anchovy-icith-cheese(x)) 


Yes, it is. This function replaces each 
instance of Anchovy by Cheese. 


subst.anchovy.by.cheese : 
pizza —» pizza 


40 


Chapter 3 










Can you describe in your own words how 

subst.anchovy.by .cheese 
works? 


Here are some different words: 
u subst.anchovy.by.cheese looks at each 
topping of a pizza and replaces each 
Anchovy by Cheese." 

Can you define a function that matches this 
description and doesn’t use remove.anchovy 
and top.anchovy. uHth.chee^e? 


Does this skeleton look familiar? 


Here are our words: 

"subst.anchovy.by.cheese looks at each 
topping of a pizza and adds Cheese on top 
of each Anchovy. Then, it looks at each 
topping again, including all the new 
cheese, and removes the anchovies." 


Yes, here is a skeleton, 
fun subst.anchovy.by.cheesc{Oust) 

= Crust 

| ubsLanchovy.by.cheese (Cheese(i)) 

= Qyeese(subst.anchovy.by.checse(x)) 

| subst.anchovy.by.checse(On\on(x )) 

= On\on{subsLanchovy.by.chccsc{x )) 

| subsLanchovy.by.cheese{ Anchovy(x)) 

| subst.am hovy.by.cheese (Sau sage ( x )) 

= Sausage(subsLanchovy.by.chcesc(x)) 

Yes, this skeleton looks just like those of 
top. anchovy .rnth.ch ecse 
and 

remove.anchovy. 


Fill in the blank. Here it is. 



Cons Is Still Magnificent 
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Now you can replace Anchovy with whatever We will stick with anchovies. 
pizza topping you want. 

The Third Moral 

Functions that produce values of a 
datatype must use the associated con¬ 
structors to build data of that type. 
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Are you tired of making pizza? 

We are too. Let's make complete meals. 

Do you like shrimp cocktail? 

We do. too. 

We like Hummus for meza too. 

And how about some Escargots? 


Okay, let’s sum them up. * There is a new one, too: Calamari. 

datatype meza = 

Shrimp 
| Calamari 
| Escargots 
| Hummus 


And here are some entrees. We should also haw some salads. 

datatype salad = 

Green 

| Cucumber 
Greek 


datatype main = 
Steak 
| Ravioli 
| Chicken 
Eggplant 


Let's not forget the fun part. 


Yes. we need desserts. 

datatype dessert = 
Sundae 
| Mousse 
I Torte 


Now let’s make a meal. 

Don't we have to put together different 



courses when we make full meals? 


No, wo can use stars! 

What is a star? 


Look to the Stars 
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Here is our first three star meal: 

(Calamari.Ravioli.Greek.Sundae). 

It looks like a meal. 

How many items does this meal have? 

Four, and they are separated by commas and 
enclosed in parentheses. 

Is 

(Hummus,Steak.Green,Torte) 
a meal of the same type? 

Yes, it also consists of four items in the same 
order: meza, main , salad, and dessert. 

Does 

(Torte,Hummus,Steak,Sundae) 
belong to the same type? 

We have seen meals like tliis before, but 
dessert should never be the first course. 

The first kind of incal is of type 
(meza • main * salad • dessert). 

Does this mean that the type of the thing 
that is not a meal is 

(dessert * meza • main * dessert )? 


What’s unusual about our meals? 

People here eat the salads before the main 
course: 

(meza * salad * main * dessert). 

Is that a meal? 

It is not the same kind of meal, is it? 

No, it is not. Each star corresponds to a 
comma in the construction of a meal. 

And the order matters, right? 

Yes, the order matters, but do we have to 
have three stars in meals? 

No, if we want small meals with three 
courses, we only need two stars. And if we 
want tiny meals with two courses, we need 
only one. 
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W r hat is your favorite kind of meal with only 
two ingredients? 

Ours is 

(Shrimp.Sundae). 

What is the type of that tiny meal? 

(meza * dessert). 

Maw you tasted your sundae yet? 

** We just ate ours. 

What is 

It is a tiny meal: 

«»M_a_afeu/;(Shrimp)? 

(Shrimp.Steak). 

W'hat is 

This meal needs something to sink our teeth 

add.a.steak( Hummus)? 

into. 


(Hummus.Steak). 

Dot's udd.a.sttak consume meza ? 

” Yes. it does. 
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Docs acULasteak produce a tiny meal? Yes. this function always produces a tiny 

meal. Indeed, we even know that the second 
item is always Steak. 


Is this a definition of add.a.steak ? 

fun add.a.steak( Shrimp) 

= (Shrimp.Steak) 

| a<M_a-s*eaAr(Calamari) 

= (Calamari, Steak) 

| add.a.steak( Escargots) 

= (Escargots.Steak) 

| a<M_a_sfeaA:(Hummus) 

= (Hummus.Steak) 


It is a function and we already discussed 
what it consumes and produces. 

add.a.steak : 
meza —* (meza * main) 


What is its type? 


Look to the Stars 
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Isn’t this long for something so simple? 


Yes, four lines is a lot. Can we shorten it? 


It doesn't really matter what the meza is, so 
we can just give it a name in the pattern and 
use that name in the answer. Define the 
abridged version of ad(La.steak. 


With this hint, it is a piece of cake (which, 
by the way, isn't a dessert). 

fun add.a.steak(x) 

= (a-, Steak) 


What is the value of 
ad<La.steak{ Escargots)? 

** (Escargots.Steak). 

And how about add.a.steak(5)? 

Isn't this nonsense? 

It should be. 

But is it? 

It would be nonsense had we only used the 

Correct. It consumed only meza. 

first version of add.a.steak. 


What does the abridged version of 

32 

Anything. 

add.a.steak consume? 



So what is its type? We have always used a when a function 

could consume anything. 

| adtLa.steak : 
a — (a * main) 

I___ 


Does that mean the second version of Yes, the second version exists for many 

add.a.steak is more general than the first? different types. Therefore it can consume 

mezas. or desserts, or nums, and even mains. 
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Are both definitions correct? 



Look to the Stars 


Yes. they both add a Steak. 


We know that the second one is more 
general, but it is also always one line long. 
The first kind of definition always contains as 
many lines as there are alternatives in the 
datatype definition. 


No, the more specific one is more accurate, 
so using it will reveal nonsense more often. 


Yes. we should have known about this 
shorthand when we defined remove.anchovy. 
It could have been so much shorter. 

fun remove.anchovy(Crust) 

= Crust 

| rrm©re.ancAory(Anchovy(x)) 

= remove, anchovy (x) 

| remove-anchovy(C(x)) 

= C( remove, anchovy (x)) 


Too bad. 


That helps a little. 


Does that mean we need to compare all four 
possible main dishes with each other? 
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Yes, that is precisely what we mean. *" Here it is. 

fun eq.main( Steak,Steak) 

= true 

| eq. main (Steak, Ravioli) 

= false 

| eq.main (Steak,Chicken) 

= false 

| eq.main (Steak.Eggplant) 

= false 

| eq_m<wi(Ravioli,Steak) 

= false 

| r 4 _mmn(Ravioli.Ravioli) 

= true 

| eq.main( Ravioli,Chicken) 

= false 

| eq.main (Ravioli.Eggplant) 

= false 

| eg_mam(Chicken,Steak) 

= false 

| eg_mam(Chicken,Ravioli) 

= false 

| eg_mam(Chicken,Chicken) 

= true 

| eg_mmri(Chicken.Eggplant) 
= false 

| Eggplant.Steak) 

= false 

| eg.nuiin (Eggplant,Ravioli) 

= false 

| cq.main(Eggplant.Chicken) 
= false 

| f^_nujin(Eggplant.Eggplant) 
= true 


Where is its type? 


43 


Here. 


eq.main : 

(main * main ) —* bool 


50 


Chapter 4 


iutorau 





44 

How docs this type differ from the type of It has a star to the left of —* instead of the 
add.a.steak ? right. 


45 

Does that mean eq.main consumes two Not really, it consumes a pair of main dishes, 

things? which we sometimes think of as two dishes. 


Here is a shorter version. This Is much shorter than the previous one 

an( j j t (xjutaiug fewer patterns 

fun eq.main (Steak,Steak) 

= true 

| e^_main(Ravioli,Ravioli) 

= true 

| «7_mam(Chicken,Chicken) 

= true 

| rt/.mum(Eggplant.Eggplant) 

= true 

| cq.main ( a.main,another.main) 

= false 


Yes, once we have defined a function, we may * That's neat hut who could have figured that 
he able to rearrange patterns and make a out? 
function shorter. 


What is the value of 

“ false. 

/jas_sfeaA:(Hummus.Ravioli.Sundae)? 


And 

4» . 

true. 

has .steak (S h r i m p. Stea k. M ousse) ? 


Good. What does the function consume? 

50 

A small meal consisting of meza , main, and 
dessert. 

What does it produce? 

51 bool. 
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What is the type of hassteak ? 


52 

(meza * main * dessert) —* bool. 


Could we write the unabridged version of "it would make our fingers too tired. 

has-steak ? 


Let’s define just the abridged version of 
has steak. 


That's easy. 

fun hassteak (a.meza. Steak, a-dessert) 
= true 

| hassteak(a.meza,a-main,a-dessert) 

= false 


What is its type? 


It does consume meza, a main dish, and a 
dessert. So, it seems that this is the type: 

(meza * main * dessert) —+ bool. 


That's true. But is 
hassteak (5.Steak.true) 
nonsense? 


Nearly. If hassteak has the type we said it 
has. then it is nonsense. 


So, is it nonsense? 

The definition of hassteak does not prevent 
it from consuming 5 and true. 

Then what is the type of tliis abridged 
version of hassteak ? 

We need another Greek letter like a to make 
the type. 

Why? 

Because the first and the third components 
do not need to belong to the same type. 
Therefore we must say the third component 
is arbitrary, yet differs from the first. 
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Here is the type. Good, but could we also have written this? 


has.steak : 


has.steak : 


(a * main * /?’) —• bool 


(P * main * a) —» bool 


• 


• 


We use ’b for *9, but it is pronounced beta. 


Yes, the two types are identical except for *' They both say that has.steak consumes three 
the Greek names of the types. things, the first and third belong to 

arbitrary, distinct types. 


Do a and (3 always stand for different types? 


No, has.steak can also consume (5,Ravioli,6). 


We won't use any other Greek letters, 


That's good. 


£4 

Does it make sense to have hasMeak No, has.steak should consume only rneza arid 

consume (5.Ravioli.6)? desserts along with a main dish. 


Is it possible to restrict the function so that 45 We could say its type is this, 
it would consume only good things? 

• has.steak : 

(meza * main * dessert) —• bool 


Unfortunately, that is only enough for us 
because we agreed to respect these 
statements about the types of functions. If 

we really want to restrict the type of things 

has.steak consumes, we need to combine the 
bulleted type boxes with the definitions. 

fun has.stcak(a: meza .Steak.d: dessert ): bool 
= true 

| has.steak(a: meza . ns . d: dessert ) : bool 
= false 


Looks simple. It is obvious where the various 
underlined pieces come from. 


Look to the Stars 
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If it looks simple, why not combine the type 
of the first version of ad<Lasteak and the 
second definition to restrict its use, too. 



Relax and enjoy a hot fudge sundae. 


Here it is: 

fun ad(La.steak(x:meza):(meza • main) 
= (x,Steak) 


After a delicious Turkish meza platter. 


The Fourth Moral 

Some functions consume values of star 
type; some produce values of star type. 
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Have we seen this kind of definition before? What? More pizza! 


datatype a pizza = 

Bottom 

| Topping of (a * (a pizza)) 
_____ I 


Yes. still more pizza, but this one Is * Yes, we have seen something like this kind of 

interesting. definition before. A type definition using a 

abbreviates many different type definitions. 
But isn't this the first datatype definition 
that uses a star? 


Yes, it is. Use a datatype definition to 
describe the shape that is like the type fish 
pizza using this definition of fish. 


Recall that ® tndirale* thal th» definition it* 
ungrammatical, but this definition cxpmM* the idea beet 


datatype fish = 


Anchovy 


| Lox 


| Tuna 

1 


Here it is. 1 

datatype fish pizza = 

Bottom 

Topping of (fish * (fish pizza)) 


Is 

Toppingf Anchovy, 
Topping(Tuna. 
Topping(Anchovy, 
Bottom))) 

a pizza of type fish pizza ? 


It is a fish pizza provided 

Topping(Tuna, 

Topping(Anchovy, 

Bottom)) 

is a fish pizza, because Topping makes these 
kinds of pizzas. 


Is 

Topping(Tuna,' 
Topping( Anchovy, 
Bottom)) 

a fish pizza ? 


Yes, it too is a fish pizza, if 

Topping( Anchovy, 

Bottom) 

is a fish pizza. 


Couples Are Magnificient, Too 
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Is 

Topping(Anchovy, 

Bottom) 

a fish pizza ? 

Yes, it is, because Topping constructs a fish 
pizza from Anchovy —a fish —and Bottom a 

fish pizza. 

Is Bottom really a fish pizza ? 

Yes. because Bottom is at the bottom of 
many kinds of pizzas. We could also put it at 
the bottom of an ini pizza, a bool pizza, or a 
num pizza. 

What is the value of 
rum-anchovy ( 

Topping! Lox. 

Topping! Anchovy. 

Topping(Tuna. 

Topping(Anchovy. 

Bottom)))))? 

It is this fish pizza: 

Topping! Lox. 

Topping(Tuna, 

Bottom)). 

Is it true that the value of 
rem.anchovy( 

Topping! Lox. 

Topping(Tuna, 

Bottom))) 

is 

Yes, the pizza that comes out is the same as 
the one that goes in. 

Topping! Lox, 

Topping(Tuna, 

Bottom))? 


Does rcm.anchovy consume fish pizza and 
produce fish pizza ? 

Yes. it does, and it does not consume a num 
pizza or an int pizza. 
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Define rem.anchoxry . Here is a skeleton. 

ii 

This is easy- by now. 

fun rerrk.anchovy( Bottom) 


fun rem.anchovy( Bottom) 

= 


= Bottom 

| rem_anc/iory(Topping(Anchovy,p)) 


n?m_ anc/iory (Toppi ng (A nc ho vy, p)) 

s: 


= rcm.anchovy(p) 

| n?m_anc/»oey(Topping(Tuna.p)) 


| n?m.anc/jory(Topping(Tuna,p)) 

- 


= Topping(Tuna,rem_anc/ioet/(p)) 

J rem_anc/ioey(Topping(Lox.p)) 


; rem.anchovy (Topping!Lox,p)) 

= .. ■ 


= Topping(Lox.n“m.ancAory(p)) 


rem.anchovy : 

(fish pizza) —* (fish pizza) 


Ik there a shorter version of rem.anchovy ? ** Yes. we can combine the last two patterns 

and their answers if we let t stand for either 
Tuna or Lox. 


Do we expect you to know that? M No, but here is the definition. 

fun rrm_anc/i 0 ey(Bottom) 

= Bottom 

| rem_ancAory(Topping(Anchovy.p)) 
= rem.anchovy(p) 

| rrm.anc/ioej/(Topping(f,p)) 

= Topping( t,rtm.ancho\ry{p)) 


How does 
rcm-tuna 
differ from 

rem-anchovy ? 


Not much. It removes Tuna instead of 
Anchovy. Here is the definition. 

fun n*m_ tuna (Bottom) 

= Bottom 

| rem_funa(Topping(Anchovy,p)) 

= Topping(Anchovy 1 rem_funa(p)) 
| rem_ftma(Topping(Tuna,p)) 

= rem-tuna(p) 

| rem_funa(Topping(Lox,p)) 

= Topping(Lox, rem-tuna(p)) 


Couples Are MagniBcient, Too 
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Where is the type? 


Can we shorten this definition like we 
shortened that of rem.anchovy ? 


How do the following two definitions of fish 
differ? 

| 

datatype fish = 

Anchovy 
| Lox 
Tuna 


datatype fish = 

Tuna 

| Lox 
Anchovy 


Why would we have defined rem.tuna like 
that? 


Can we shorten this new definition of 
rem.tuna? 


Here it is. 


rem.tuna : 


{fish pizza) —* {fish pizza ) 

• 


No, the patterns and answers that are alike 
are too far apart. 


They aren't really different, because they 
both say that Lox, Anchovy, and Tuna are 
fish. But, if we had chosen the second 
definition, we would have defined rerrutuna 
like this. 

fun rem.tuna{ Bottom) 

= Bottom 

| rrm_tiina(Topping(Tuna,p)) 

= rem-tuna(p) 

| rcm_funa(Topping(Lox,p)) 

= Topping(Lox, rerrutuna(p)) 

| rrm_funa(Topping(Anchovy,p)) 

= Topping(Anchovy,n*m_<una(p)) 


rem-tuna : 


(fish pizza) —* fish pizza) 

• 


Because we have always ordered the patterns 
according to the alternatives in the 
corresponding datatype definition. 


Yes, because the pair of patterns and 
answers that are alike are close together. 
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Do we have to change the definition of fish to 
do all that? 


No, we don't. The ordering of the patterns 
does not matter as long as there is one for 
each alternative in the corresponding 
datatype definition. But we like to keep 
things in the same order. 


Write a shorter version of remAuna. Here's one. 

fun remAuna{ Bottom) 

= Bottom 

| rcm_fiina(Topping(Tuna,p)) 

= remAuna(p) 

| n?m»/iina(Topping(Lox,p)) 

= Topping(Lox,remJun<i(p)) 

| rem_<nna(Topping(Anchovy.p)) 

= Topping(Anchovy, rem.tuna(p)) 


fun rem_/una(Bottom) 

= Bottom 

| rem_<Mnn(Topping(Tuna,p)) 

= remJuna(p) 

I rem_tiirw(Topping(t,p)) 

= Topping(f,rem_funa(p)) 


Can we combine rem.anc.hovy and remAuna ” Yes, but when we use the combined function, 
into one function? we need to say which kind of fish we want to 

remove. 
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What is a good name for the combined How about re.m.fishl 

function? 


34 

How do we use rem.fish ? We give it a pair of things. The first 

component could be the kind of fish we want 
to remove and the second one could be the 
pizza. 


Could we also give it a pair where the second * Yes, it doesn't matter as long as we stick to 
component is the kind of fish we want to one choice, 

remove and the first one is the pizza? 


24 

What would be the type of rem.fish if we That's easy: 

chose the second alternative? ((/isA pizza) . fish) - (fish pizza). 
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But, let's use the first one. 


Then rem-fish consumes a pair that consists 
of a fish and a fish pizza. 
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Here is the definition of rem-fish. M As we will see, it could have been worse. 

fun rem-fish(x, Bottom) 

= Bottom 

| rem_/is/i(Tuna.Topping(Tuna,p)) 

= rem-fish (Tuna,p) 

| rcm_/w/j(Tuna,Topping(f,p)) 

= Topping! t,remJish(Tuna,p)) 

| ;ern_/ia/i(Anchovy,Topping!Anchovy.p)) 

= rem.fish (Anchovy, p) 

| rem.fish( Anchovy.Topping! t,p)) 

= Topping! f.»rm_/u/i(Anchovy.p)) 

J rem-fish (Lox,Topping!Lox.p)) 

= i'cm-fish(lox.p) 

| rrm_/w/»(Lox.Topping(f,p)) 

= Topping! t, rem-fish (Lox.p)) 


rem-fish : 

(fish * (fish pizza)) —* (fish pizza) 


Isn’t this clumsy? 


Describe in your words how it could have ” Here are oure: 
been worse. “The pattern 

rcm,^s/i (Tuna,Topping! t,p)) 
matches all pairs that consist of Tuna and 
a fish pizza whose topping is not Tuna. For 
the long version of rem-fish we would have 
used two different patterns: 

rem_/u/i(Tuna.Topping(Anchovy.p)) 

and 

rem_/is/i(Tuna.Topping(Lox,p)). 

And, we would also have needed an answer 
for each pattern.” 
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Write the unabridged version of rem.fish. 


It has three more patterns than the short 


one. 


fun rcm-fish(x, Bottom) 

= Bottom 

| n^m/w/i(Tuna,Topping(Tuna.p)) 

= n?m_/is/i(Tuna,p) 

| n^n_/w/j(Tuna,Topping(Anchovy,p)) 

= Topping(Anchovy.mn_/is/i(Tuna,p)) 

! rrm_/w/i(Tuna,Topping(Lox,p)) 

= Topping(Lox,n? > m_ < /M/j(Tuna,p)) 

| n?m_/w/j(Anchovy,Topping( Anchovy,p)) 
= rem_/is/»(Anchovy,p) 

| rrm_/is/i(Anchovy,Topping(Lox.p)) 

= Topping(Lox,n:m_/u/i(Anchovy.p)) 

| rc-m_/w/»(Anchovy,Topping(Tuna.p)) 

= Topping(Tuna.rrm-/w/i(Anchovy,p)) 
i rem./w/i(LoxTopping(Lox.p)) 

= remJiah[Lox,p) 

| mn./ij/i(Lox.Topping(Anchovy.p)) 

= Topping(Anchovy,n”m_/w/j(Lox.p)) 

| n'm_/u/»(Lox.Topping(Tuna,p)) 

= Topping(Tuna,rem./is/j(Lox.p)) 


If we add another kind of fish to our 
datatype, what happens to the short 
function? 


We have to add two patterns and two 


answers. 


If we add another kind of fish to our 
datatype*, what happens to the unabridged 


version? 


We have to add one pattern and one answer 
for each old kind of fish and four patterns 
and answers for the new kind. 


Why does the unabridged version get so 
large? 


Because we must compare each kind of fish to 
every other kind of fish, including itself. And 
the first pattern is always a test for Bottom. 


Does that mean the unabridged version for 
five fish contains 26 patterns? 


Yes. and for six fish it would be 37. Worse, if 
n is the number of fish in a datatype, the 
number of patterns needed for the 
unabridged version is n 2 + 1. 


Couples Are Magnificient, Too 
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Is there a shorter way to determine whether 
two fish are the same? 


Could we use the same name in one pattern 
twice? 


fun rem.fish(x, Bottom) 

= Bottom 

| rem_/is/i(x,Topping(x,p)) 

= rem.fish{x,p) 

| rem_/u/i(x,Topping(*,p)) 

= Topping {t,rem.fish(x,p)) 


Wouldn’t that be great? Unfortunately, Sigh, 

using the same name twice in a pattern Ls 
ungrammatical. 


Let’s define the function eq.fi.ih. which That function consumes a pair of fish and 

determines whether two given fish are equal. produces a bool. 


The unabridged version of cq.fish Ls huge. 

fun cq.fish ( Anchovy.Anchovy ) 

= true 

| c«/_/w/j(Anchovy.Lox) 

| = false 

| eq.fish( Anchovy.Tuna) 

= false 

| eq.fish(Lox, Anchovy) 

= false 

| c«/./w/»(Lox,Lox) 

= true 

| e< 7 _/is/j(Lox.Tuna) 

= false 

| eq.fish (Tuna,Anchovy) 

= false 

| eq.fish{ Tuna.Lox) 

= false 

| e« 7 _/Ls/i(Tuna.Tuna) 

= true 

Write the abridged version and provide a 

type? 


It is only four lines long. 

[ ' ' 

fun eq.fish( Anchovy,Anchovy) 

= true 

| cq.fish(LoxXox) 

= true 

| eg_/is/j(Tuna,Tuna) 

= true 

| cq.fish(a.fish.another.fish) 

= false 
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What is the value of 


It is true, unlike eq.fish( Anchovy.Tuna). 


W 

eq.fish( Anchovy .Anchovy)? 


Yes. it contains 
if expi 
then exp 2 
else exp 3 , 

which we haven't seen before. How do we 
determine its type? 


To determine its type, we first make sure " And these two need to l»e the same because 
that the type of exp\ is bool, and then we the value of either one can be the result of 

determine the types of cxp 2 *md exp 3 . the entire expression. Correct? 

Yes, great guess. Does this version of ** Yes, since both rem.fish and Topping produce 

rem.fish still have the type fish pizza, rem.fish produces fish pizza, no 

{fish • (fish pizza)) — (fish pizza)? matter which of erp 2 or exp 3 is evaluated. 


Here is the shortest version of rem.fish yet. 

fun rem.fish{x, Bottom) 

= Bottom 

| rem.fish(x ,Topping{ t,p)) 

= if eq.fish(t,x) 

then rcm.fish(x ,p) 

else Topp\ng( t,(rem.fish(x ,p))) 

Is there anything new? 


How does that new version differ from this 
ungrammatical one? 


fun rem.fish ( x, Bottom) 

= Bottom 

| rcm.fish{x,Topp\ng(x.p)) 

= rem.fish(x.p) 

| rem.fish(x.Topp\ng(t,p)) 

= Topping(t.rrm^/w/i(x,p)) 


Not too much. The shortest version uses 
eq.fish to compare the two kinds of fish; this 
one uses an ungrammatical pattern. 


Let’s try it out with the shortest version: It does not match the first pattern, because 

rem-fish (Anchovy. the pizza is not Bottom. 

Topping(Anchovy, 

Bottom)). 
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Does the second pattern match? 

45 

If i is Anchovy, t is Anchovy, and p is 

Bottom, then it matches. 

What next? 

Next we need to compare t with x, which are 
equal, so eq.fish(t,x) is true. 

Therefore, we take rem.fish(x,p) as the 
answer. 

Since p is Bottom, the result of that 
expression is Bottom, and that is also the 
result of 

rem.fish (Anchovy, 

Topping! Anchovy, 

Bottom)). 

What is the value of 
remJuih(Tuna, 

Topping(Anchovy. 

Topping(Tuna. 

Topping( Anchovy, 

Bottom))))? 

Again, the first pattern doesn’t match, but 
the other one does, if x Ls Tuna, t is Anchovy, 
and p is 

Topping(Tuna, 

Topping! Anchovy, 

Bottom)). 

What is eq.fish(t,x) if t is Anchovy and x is 
Tuna? 

“ false. 


so 

So what is the answer? The answer is 

Topping( Anchovy. 
retii^fish (Tuna. 

Topping(Tuna, 

Topping(Anchovy. 

Bottom)))), 

which Ls what follows the pattern and the = 
sign with x replaced by Tuna, t replaced by 
Anchovy, and p replaced by 
Topping(Tuna, 

Topping(Anchovy. 

Bottom)). 
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Which pattern does 
remjish (Tuna, 

Topping(Tuna. 

Topping(Anchovy. 

Bottom))) 

match? 

SI 

It matches the second one again if x is Tuna, 
t is Tuna, and p is 

Topping( Anchovy. 

Bottom). 

And how do we continue? 

w 

We determine the value of 
rem_/is/i(Tuna. 

Topping( Anchovy, 

Bottom)), 

because we want to remow Tuna. 

Is 

M 

Yes. because the pizza does not contain any 

Topping(Anchovy, 

Bottom) 

the value of 
rt'm_/w/i(Tuna, 

Topping( Anchovy, 

Bottom))? 


Tuna. 

So what is the final answer? 

M 

We still need to top it with anchovy: 

Topping( Anchovy. 

Topping(Anchovy. 

Bottom)). 

Does 

rem.int( 3, 

Topping(2. 

Topping(3. 

Topping(2, 

Bottom)))) 

look familiar? 

ss 

Yes. it looks like what we just evaluated. 

What does rem_tnf do? 

M 

It removes ints from int pizzas just as 
rcnr.fish removes fish from fish pizzas. 
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With eqJnt, 1 define remAnt. * That’s easy, it is nearly identical to the 

definition of rem.fish. 



Describe how rem.fish differs from rcm.int. 


Here is what is on our mind: 

“They look alike, but they differ in the 
types of the things that they consume and 
produce, and therefore in how they 
compare toppings. 


Can we define one function that removes 
toppings from many kinds of pizza? 


Yes. but not until chapter 8. 


What is the value of 
subst.fish ( Lox, Anchovy, 
Topping( Anchovy. 
Topping(Tuna, 
Topping(Anchovy. 
Bottom))))? 


It is the same pizza with all instances of 
Anchovy replaced by Lox: 

Topping(Lox. 

Topping(Tuna. 

Topping(Lox. 

Bottom))). 


What value does subst.fish consume? 


It consumes a triple whose first two 
components are of type fish and whose last 
component is a fish pizza. 


And what does it produce? 


It always produces a fish pizza. 
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What is the value of 
substJnt{5,3 , 
Topping(3, 
Topping(2. 
Topping(3, 
Bottom))))? 


It is the same pizza with all 3s replaced by 
5s: 

Topping(5, 

Topping(2, 

Topping(5, 

Bottom))). 


d4 

What value does subsLint consume? It consumes a triple whose first two 

components are of type int and whose last 
component is an ini pizza. 


And what does it produce? 


It always produces an int pizza. 


We can define substjish. 


fun subsLfish(n,a, Bottom) 

= Bottom 

| subsLfish(n,a.Topp>ng(t.p)) 

= if eq.fish(t,a) 

then Topping(n,.itifcsL/is/i(n,a,p)) 
else Topping( t,subsLfish (n,a .p)) 


subsLfish : 

{fish * fish * {fish pizza)) — {fish pizza) 


Can we define subsLint ? 


To get from subsLfish to subsLint. we just 
need to sul»stitute fish by int everywhere. 


■ | 
fun *iifcsf_mf(n.a,Bottom) 

= Bottom 

1 subsLint(n.a.Topp\ng(t,p)) 

= if eq.int(t,a) 

then Topping(n,std»sf.m<(n,a,p)) 
else Topping(t,«itof_mt(n,a,p)) 


subsLint : 

(int * int • (inf pizza)) -* (int pizza) 


eqJnt( 17.0)? 
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false. 

because 17 and 0 are different. 


eq.int( 17.Tuna)? 


This is nonsense. 1 because 17 and Tuna 
belong to two different types. 

1 Rerortnbex that we use the word "no mame" to refer to 
expressions that have no type. 
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What is the value of ** true. 

eq.num( because both values are constructed with 

One_more.than( One_more_than and the same component. 

Zero), 

One.more.than( 

Zero))? 


Define eq.num , but don't forget that it takes ** It is easy to write the unabridged version if 
two values. we use two patterns for each value that it 

consumes. 

fun eq.num( Zero.Zero) 

= true 

| eg_num(One.more.than(n),Zero) 

= false 

| eg_num(Zero,One_more_than(m)) 

= false 
| eq.num( 

One.more.than (n), 
One.more.than(m)) 

= cq.num(n.m) 


Define the abridged version. Here Ls a version 
where we reordered some patterns. Can the 
last two be combined? 

fun e«/.num(Zero.Zero) 

= true 
| eq.num( 

One.more.than(n), 

One.more.than(m)) 

= eq.num(n,m) 

| e7_n«m(0ne.more_than(n).Zero) 

= false 

| e 7 .num(Zero.One.more-than(m)) 

= false 


No problem. 

fun cq.num (Zero.Zero) 

= true 
| efl_num( 

One.more.than(n), 
One.more.than(m)) 
= eq.num(n,m) 

| eq.num(n,m) 

= false 


No problem? 


Not if we start from a correct program and 
carefully transform it, step by step. 
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Perhaps it is time to digest something 
besides this book. 


Great idea. How about a granola bar and a 
walk? 


The Fifth Moral 

Write the first draft of a function fol¬ 
lowing all the morals. When it is cor¬ 
rect and no sooner, simplify. 
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Is 

Flat(Apple, 

Flat(Peach, 

Bud)) 

a flat tree? 


Yes. 


Is * Yes. it is also a flat tree. 

Flat(Pear. 

Bud) 

a flat tree? 


And how about 1 No. it contains Split, so it can’t be flat. 

Split( 

Bud, 

Flat( Fig, 

Split( 

Bud. 

Bud)))? 


Here is one more example: * No. it isn’t flat either. 

Split( 

Split( 

Bud, 

Flat( Lemon, 

Bud)), 

Flat(Fig, 

Split) 

Bud, 

Bud))). 

Is it flat? 


Ready to go? 


Sure. Let's define the datatypes we need to 
make this work. 


Oh My, It's Full of Stars! 
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Here are some fruits. 



Let’s say all trees are either Hat. split, or 
bud. Formulate the datatype for frees. 


How is it different from all the other The name of the new datatype occurs twice 

datatypes we have seen before? in one (the last) alternative. 

How many patterns does the definition of Three, l>ecause it consumes frees, and the 
flaLonly contain? datatype tree contains three alternatives. 

What type of value does flat.only produce? * bool. 

I o 

What function does flat.only remind us of? only.onions. 


Here is a skeleton for flat.only. That’s easy now. 















Define the function split-only, which checks * Here Is the easy part, 
whether a tree is constructed with Split and 

Bud only. fun spitLonly(Bud) 

= true 

| split.only(F\at(J,t)) 
= false 

| split-only (Split(j,<)) 


What is difficult about the last line? 

We need to check whether both s and t are 
split trees. 

Isn’t that easy? 

Yes. we just use split.only on a and t. 

And then? 

Then we need to know that both are true. 

Doesn’t that mean we need to know that 

“ Yes. 

spliLonly(t) is true if split.only(s) is true? 


Do we need to know whether split.only(t) is 

No, then the answer is false. 

true if split .only (a) is false? 



Finish the definition of split-only using 

if... 

then ... 
else .... 


* We could have written this if-expreteion as 
split.only(a) andalso split.only(t). 


Now we can do it. 

fun split-only (Bud) 

= true 

j split-only(F\at(f ,t)) 

= false 

| xp/if.ori/y(Split(.?.<)) 

= if 1 split.only(s) 
then split-only(t) 
else false 



Oh My It’s Full of Stars! 
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Give an example of a tree for which split-only There is a trivial one: Bud. 
responds with true. 


How about one with five uses of Split? Here is one: 

Split( 

Split( 

Bud. 

Split( 

Bud. 

Bud)), 

Split( 

Bud, 

Sp*it( 

Bud. 

Bud))). 


Does thus tree contain any fruit? 


No tree for which spliLonly is true contains 
any fruit. 


Here is one version of the definition of the 
function contains -fruit. 

fun coiitain3-fruit(Sud) 

= false 

| contains.fruit(F\<it(f ,t)) 

= true 

| contains.fruit(Sp\it{s,t)) 

= if 1 contains, fruit (a) 
then true 

else contains.fruit(t) 


contains.fruit : 


tree —» bool 

• ' 


Write a shorter one. 


1 Wo could have written this If-exprewion me 1 We could have written this if-expremion a* 

contains-fruit (a) orelae contalna-frult(t). not(split_only(x)). 


We can use split-only, which already cliecks 
whether a tree contains a Flat. 

fun contains-fruit (x) 

= if 1 spliLonly(x) 
then false 
else true 
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3. 


What is the height of 

Split( 

Split) 

Bud, 

Flat(Lemon. 

Bud)), 

Flat) Fig, 

Split) 

Bud, 

Bud)))? 


What is the height of 

Split) 

Bud, 

Flat(Lemon. 

Bud))? 

24 2. 

What is the height of 

" 1 . 

Flat(Lemon, 


Bud)? 


What is the height of 

" 0 . 

Bud? 


So what is the height of a tree ? 

The height of a tree is the distance from the 


root to the highest bud in the tree. 

Does height consume a tree ? 

Yes. and it produces an int. 

What is the value of 

” 3. isn't it? 

height { 


Flat(Fig. 


Flat(Lemon. 


Flat(Apple, 


Bud))))? 



Oh My It's Full of Stars! 
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4. 


What is the value of 
height ( 

Split( 

S P lit( 

Bud, 

Bud), 

Flat(Fig, 

Flat(Lemon, 

Flat(Apple, 

Bud}))))? 


Why is the height 4? Because the value of 

height ( 

Split( 

Bud. 

Bud)) 

is 1, the value of 
height { 

Flat(Fig, 

Flat( Lemon, 

Flat(Apple. 

Bud)))) 

is 3, and the larger of the two numbers is 3. 


And how do we get from 3 to 4? 2 We need to add 1 to the larger of the 

numbers so that we don’t forget the Split at 
the root of the tree. 

Define the function larger.of. What does it consume? 


It consumes a pair of int s and produces an Well, then it must be thus. 



1 You must define less-thsn as 

fm lass.than(n:int,a: lot) • Cn < a). 
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Here is height. 

as 

And here is its typo. 

fun height(Bud) 


height : 

= 0 


tree —* int 

1 height ,t)) 


• 

= 1 + height(t) 



| /ic*<//«t(Split(ft.<)) 



. = 1 + larger.of (height (a), height(t)) 




What is the value of 1. of course. 

height( Split(Bud.Bud))? 


And why is it 1? 

Because hetght(Bud) is 0 and the larger of 0 
and 0 is 0. And one more than 0 is 1. 

What is the value of 

That's also easy. We replace all Figs by 

sufcsLm-free(Apple.Fig. 

Apples: 

Split( 

Split( 

Split( 

Split( 

Flat(Fig. 

FlatfApple. 

Bud), 

Bud), 

Flat(Fig. 

Flat(Apple, 

Bud)), 

Bud)), 

Flat (Fig, 

Flat(Apple. 

Flat(Lemon, 

Flat(Lemon. 

FlatfApple. 

Flat(Apple. 

Bud)))))? 

Bud)))). 


Oh My It s Full of Stars' 
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Do we need to define eq.fruit before we 
define subst.in.tree ? Here is its type. 


eq-fruit : 

(fruit • fruit) 


bool 


How could you know, but we do need it! 

fun eq.fruit( Peach.Peach) 

= true 

; eq-fruit( Apple.Apple) 

= true 

| eq-fruit( Pear.Pear) 

= true 

| eq.fruit( Lemon.Lemon) 

= true 

| eq.fruit (Fig.Fig) 

= true 

| eq.fruit (a.fruit, another.frmt ) 

= false 



How many lines would eq.fruit l»e if we had 
twenty-five different fruits? 


When you have counted them all, you can 
have some apple juice. 


Deline the function nub.it.in.tive. 


It's like subst.fish and aubat.int from the end 
of chapter 5. 

fun subst.in.tree(n,a,Bud) 

= Bud 

| subsLin.trce(n,a,Flat(f,t)) 

= if eqjruit(J,a) 

then F\at(n,subst.in.tree(n,a,t)) 
else F\at(J ,subst.in.tree(n,a,t)) 

| sutaLm-<rar(n,a,Split(s,f)) 

= Split( 

subsLin.tree(n,a,s), 

subsLin.tree(n,a,t)) 


subst.in.tree : 

(fruit * fruit * tree) —♦ tree 
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How many times does Fig occur in 3. 

Split( 

Split( 

Flat(Fig. 

Bud), 

Flat(Fig, 

Bud)), 

Flat(Fig, 

Flat(Lemon. 

Flat(Apple. 

Bud))))? 


Write the function occurs. *' This is so easy: just follow the patterns. 

fun occurs(a. Bud) 

= 0 

| occurs{a. Flat(/,f)) 

= if eq.fruit{f ,a) 

then 1 + occurs{a,t) 
else occurs(a.t) 

| occurs(a.Split(s,<)) 

= occurs(a.s) + occurs(a.t) 


--- 

occurs : 

{fruit * tree) —* inf 


Do you like your fruit with yogurt? 


We prefer coconut sorbet. 


Is it true that 
An.atom(5) 
is an sexp? 


Yes, 

because An.atom is one of the two 
constructors of int sexp. 


Ls it true that 
An.atom(Fig) 

is an sexp ? 


49 Yes, 

because An .atom is one of the two 
constructors of fruit sexp. 


Oh My. It's Full of Stars! 
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Is it true that 

A_slist(Empty) 
is an sexp? 

" Yes. 

l>ecause A_slist is the other constructor of 
int sexp. 

Is it also true that 

“ Yes, 

A-slist(Empty) 

because A_s!ist is the other constructor of 

is an sexp? 

fruit sexp. 


Is it true that 

Scons( An_atom( 5), 

Scons(Anatom(13), 

Scons(An_atom{l), 

Empty))) 

is an int sliat ? 

Yes. 

lx»cause here Scons constructs int sliats 
from int aexps and int sliata. 

Is it also true that 

Scons(An_atom(Fig), 

Empty) 

is a fruit, sliat? 

“ Yes, 

because Scons also constructs fruit sliat 
from fruit sexps and fruit altstn. 

Okay, so here are two new shapes. 

q sliat and a sexp. 

datatype 
« sliat = 

Empty 

| Scons of ((a sexp) * (a sliat)) 

and 

a sexp = 

An .atom of a 
| A_slist of (a sliat) 


What are the two shapes? 


Why are the two definitions separated by 
and? 

The first definition, a sliat, refers to the 
second, a sexp\ and the second refers to the 
first. 
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Do such mutually self-referential datatypes 
lead to mutually self-referential functions? 

53 

Always. 

How many times does Fig occur in 
Scons(An_atom(Fig), 

Scons(An_atom(Fig), 

Scons( An _atom( Lemon), 

Empty)))? 

54 

Twice. 

What Ls the value of 
ocrurs.in.sUst (Fig, 

Scons(A.slist( 

Scons(An_atom(Fig), 

Scons( An _atom( Peach), 

Empty))), 

Scons(An.atom(Fig), 

Scons(An_atom(Lemon), 

Empty))))? 

2 , again. 

And what does 
occura.in.sexp (Fig. 

A_slist( 

Scons(An.atom(Fig), 

Scons( An.atomf Peach), 

Empty)))) 
evaluate to? 

M i. 


Oh My, It’s Full of Stars! 
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Here are the skeletons of occurs.in.slist and 
occurs.in.sexp, 

fun 

occurs-in-slist (a. Empty) 


| occurs.in.slist(a, Scons(s,y)) 

and 

occurs_m_.9ejp( a. An _atom( 6)) 
= if eq.fruit(b,a) 

then 1 
else 0 

| occurs.in.sexp(a. A_slist(y)) 


occurs.in.slist : 

(fruit • fruit slist) —* int 


Fill in the blanks. Also provide the type for 

occurs.in. s exp. 


The blanks are easy now. because they just 
stand for the obvious answers. 

fun 

occurs. in.slist (a, E m pty) 

= 0 

| occurs.in^list(a.Scons(s,y)) 

= occurs.in.sexp(a,s) + 
occurs.in.slist ( a, y) 

and 

occurs.in.sexp(a .An.atom(6)) 

= if eq.fruit(b,a ) 

then 1 
else 0 

| occurs.in.scxp(a, A_slist(y)) 

= occurs.in.slist (a, y) 


occurs.in.sexp : 


(fruit * fruit sexp ) -♦ int 

• 


Define subst.in.slist and subst.in.sexp. Here 
are their types. 


subst..in.slist : 

(fruit * fruit * fruit slist ) -* fruit slist 


subst.in.sexp : 

(fruit * fruit • fruit sexp) —* fruit sexp 


That is no problem either, 
fun 

subst.in^list ( n. a .Empty) 

= Empty 

| subst.in.slist(n,a.Scons(s,y)) 
= Scons( 

subst. i n.sexp (n, a , s ), 
8ubst,in.sHst(n,a,y )) 

and 

su6s£.m_ae2p(n.a.An_atom(6)) 
= if eq.fruit(b.a) 
then An .atom (n) 
else An .atom (6) 

| subst.in^exp(n,a. A-slist(y)) 

= A^\\st(subst.in^list(n,a,y)) 
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Does that mean we should check in 
rem.from.slist whether the sexp inside of 
Scons is an atom? 


Yes, we should check that and whether the 
atom is the one that is to be removed. 
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Here are the refined skeletons, 
fun 

rem.fronuslist ( a , E m pty) 

= Empty 

| rem.from.slist(Q,Scons(s,y)) 

= if eq.fruit.in.atom(a,s) 
then rern.from.sHst (a.y) 
else Scons( 

rem.from.sexp (a, s), 
rem.fromjtlist(a,y )) 

and 

re m.from.sexp(a, An _atom( 6)) 


| rem>/rnm.se‘ 2 ^(a.A^list(y)) 

= A^\\st(rrm.from.slist(a.y)) 

Is rt•m.Jiom.sexp ever applied to a fruit and 
an atom constructed from the same fruit? 


We cannot know because we have never seen 
eq.fruit.in.atom before. 


VoilA. That’s not difficult. 


What is the type of cq.fruit .in.atom'( 


eq.fruit.in.atom : 


(fruit * fruit sexp ) —* bool 

• 


fun c^/ruiLm_afom(a,An.atom(s)) 

= eqjruit(a,s) 

| eq.fruit.in.atom(a.fruitAshst(y)) 
= false 


And what does it do? 


It consumes a fruit and a fruit sexp and 
determines whether the latter is an atom 
constructed from the given fruit. 


Is rem.from.sexp ever applied to a fruit and 
an atom constructed from the same fruit? 


Not in rem-fromslist. because remjromsexp 
is only applied when eq.fruit.in.atom(a,s) is 


false. 
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What is the answer to the first pattern in 
rem.from.scxp ? 


Since it is never applied to two identical 
atoms, the answer is always An_atom(6). 
Hence, these are the complete mutually 
self-referential definitions. 


rem.fronuslist( a, Empty) 

= Empty 

| rem_/n>m_s/wf(a.Scons(s,y)) 

= if eq.fruit.in.atom(a.s) 
then rcm.fronusltst(a,y) 
else Scons( 

rem.fro m.s erp ( a , s), 
mn.from.shst(a,y)) 

and 

rtm.fn>m.sej:p( a .An .atom (6)) 

= An. atom (6) 

| rrm_/rom.5fJ7>(a.A_slist(y)) 

= As\\sX(rem.from.slist{a,y)) 


Here are two skeletons that are similar to the 
first two. 


nm.from.slut (a .Empty) 

= Empty 

| ivm-from.slist(a } Scons (An atom(6),y)) 


and 


rem.from.st'xp( «. An _atom( 6)) 

rcm n from.sr.Tp( a. A.slist(y)) 

= A_slist(n"m_/rom_.s/isf(a.y)) 


What changed? 


The only change is in the second pat tern of 
Tem.fronL.sHst. The new pattern says that 
the first item of the slist must be an atom. 


What is the answer that corresponds to that The answer depends on a and b. If they are 


pattern? 


the same, it is 

remfromslist ( a.y) 
otherwise, it Is 

Scons( An .atom(6) .rcm.from.slist( a.y)). 
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Can rem.from.slist match all possible a 
slists ? 


No, not if the first element is an a sexp that 
was constructed by A_slist. 


Let’s add another pattern to the skeletons. 


Something like this. 


fun 


rem.from.slist ( a, Empty) 

= Empty 

| rem_/rtmi-s/wf(a.Scons(An_atom(6),j/)) 
= if eq.fruit(a,b) 

then renh.fromslist(a,y) 
else Scons( 

An_atom(6), 

rem.from.slist(a,y)) 

| rem.from.sUst{a ,Scons(A_slist(x),y)) 


and 


revLjrom^exp{ a .An _atom( b)) 

| rrm-frumseTp(a, A_slist(y)) 

— A_slist(rrm_/rr»m_^/M<(o,y)) 


What is the answer for the last pattern in 
mn.jrom.shst ? 


We need to remove all a s from the slist x 
and from the slist y. 


Does that mean we can use 
rem.from.sli.st (a, x) 
and 

rem.from.slist ( a, y )? 


And what do we do with the results? 


We Scons them back together again. 
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What is the type of this function? Whatever it consumes is what it produces. 



What does a -* a mean? 


It means that identity is a function that 
consumes and produces values of the same 
type, no matter what the type is. 


What docs “no matter what the type is” 5 Here are our words: 

mean? “Pick an arbitrary type. Then, identity 

consumes and produces values of the 
chosen type." 


And what does the word “arbitrary" mean? 


Our words again. 

“It means that there is no relationship 
between the type that you choose and the 
type that we choose." 


What is the type of true.maker? 

It always produces true. 


fun true.maker(x) 

j ! true.maker : 


= true 

1 o —* bool 



1___ 



Was that easy? 


Of course, truc.rnakcr consumes values of 
any type and always produces a bool. 


Make up a value of the type booLor.int. Here is one: Hot(true). 


datatype booLor.int = 
Hot of bool 
I Cold of int 


Functions Arc People. Too 
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What is the type of Hot(true)? 

booLorJnt. 

And how about another value of this type? 

9 Cold(10). 

What is the type of Cold(5)? 

booLorJnt. 


What is the type of hot-maker ? 


fun hot.maker(x) 
= Hot 


It must also start with a, because it can 
consume anything. 


And what does it produce? 

It produces Hot. 

What is the type of Hot(true)? 

booLor.int , as we mentioned earlier. 

What is the type of true'.’ 

14 bool. 

So Hot is of type ... 

... bool —♦ booLorJnt. 

Does that mean Hot is a function? 

Yes. absolutely. 

Did we just agree that constructors are 

Those constructors that are followed by of in 

functions? 

the datatype definition are indeed functions. 


Then what is the type of hot-maker ? It must be this. 

hot-maker : 

n —* (bool -* booLor-int) 
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Docs that mean hoLmaker is a function? 



Does it matter whether the blank is replaced 
by true or 5? 


What is the difference between 
a —* (bool — booLor.int ) 
and 

(a —* bool) — booLor.int ? 


Arc they really different? 


Does that mean functions can consume 
functions? 

24 

Does that mean functions are values? 


How do we determine the type of the values 
that help produces? 


Functions Are People , Too 


Yes, we defined it that wav. 


No. 

because true.maker consumes all types of 
values, e.g.. true, 6, Hot. and so on. 


fun help(J) 

= Hot( 

trve_maker( 
if true.makcr(b) 

then / 

else true.makcr)) 


The difference is the placement of the 
matching parentheses. In the first type, the 
parentheses enclose the last two types, bool 
and booLor.int, and in the second type the 
parent best’s enclose the first two types, a and 
bool. 

Yes. one consumes a function and the other 
produces one. 

Yes, and. as we have already seen, they can 
produce them. too. 

Yes. functions are values, too. 

That's easy. We know that Hot always 
returns a booLor.int , which means that help 
must be of type 

-—* booLor.int. 
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How do we determine the type of the values 
that help consumes? 


That's tricky. 


What is the type of the values that Hot 
consumes? 

37 bool. 

Does true.moker produce a bool? 

Yes. it does. We said so earlier. 

Is it important that Hot consumes bools and 
that tnie.maker produces them? 

Yes. because whatever truc.maker produces 
is consumed by Hot in the definition of help. 

What is the type of the values that 
truc.maker consumes? 

It consumes values of any type and therefore 
it doesn’t matter how we fill in the blank. 


What is the type of 

if true.makcr( _) 

then / 

else true, maker ! 


It doesn't matter, because the result of this 
expression is consumed by truc.maker and 
true.maker consumes values of any type. 


Does it matter that ” Although it doesn't matter which type it 

if true.maker( _) has. it matters a lot that it has a type. If the 

then j expression didn't have a type, it would be 

else true.makei nonsense. 

has a type? 


How do we determine the type of M It is the type of ejp 2 or the type of exp 3 , 

if exj)i because their types must be the same, 

then exp 2 
else exp 3 ? 


What is the type of tnie.maker ? 
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What does that mean? 

43 

Even,' value of type chain is a pair. The first 
component of the pair must be an int. That 
part is easy. But, the second component 
must be a function. 

Haven't we just seen that functions are 
values? 

44 

Yes, but the kind of function we need now is 
strange. 

What is strange about it? 

43 

It consumes an int, which is also easy, but it 
produces a chain, which brings us back to 
the original problem. 

Does that mean the function’s type is 
int —* chain ? 

- 

That is what the datatype requires. 

Hero is a start at such a function. 

4T 

It clearly consumes an int and the answer it 
constructs is a chain. 

fun tnto(fi) 

- Link(n + 1, ) 


J 

ints : 

•n# _a rhntft 

What is the type of ints ? 


im —♦ cnaui 

• 



How must we fill in the blank? 

- 

As we said before, the blank must be filled in 
with a function of type int —* chain. 

Don’t we have such a function? 

49 

Only one: ints. 

Fill in the blank now. 

40 

Now it is easy. 



fun *n(s(n) 

= Link(n + l,tnts) 
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What is somc_in£s(0)? 


It is a chain of all those numbers (larger 
than 1) that are evenly divisible by 5 or 7. 


How many patterns do we need for a One, 

function that consumes chains ? because there is only one alternative in the 

datatype definition of chain. 


Fill in the blanks in this skeleton. 

[ fun ~chain.item{ n,Link(iJ)) 

= if e« 7 _ird(n,l) 

j then _ 

else chain-item(n — 


The first blank is easy. The result must be 
an int, so it can only be i or n. Since we 
know that n is 1 , we pick i. 


chain-item : 

(int * chain) — int 


Why is i a good answer and not just an 
answer of the right type? 


We are looking for the nth int in the chain. 
Since i is the first (i.e. f 1st) element of the 
chain, the result is i when n is 1. 


Could the answer have been 17? 


The type is right, but who would want to 
define a function that always returns 17? 


What is the type of the second blank? 


It must be chain, because chain-item 
consumes a pair consisting of an int and a 
chain. 


What are our possibilities? *° The type of Link {ij) is chain. But, since / 

is of type 
int —* chain, 
f(i) is also of type chain. 
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Why do we use and to combine two 
definitions? 1 


You could also have written 
local 

fun has_no.dlvlaori(n,c) 

- If aq-lnt(c,1) 

then trua 

•Isa 

if dividas.avanljr(n.c) 
than falsa 

•Isa has .no .di visors (n,c - 1) 
in 

fun iB-prlaa(n) 

- ha«.no.divi»or*(n,n - 1) 


Because the first definition is more important 
than the second one and yet it refers to the 
second one. 


fun ls-priBa(n) 

- lot 

fun has.no.divisors(n.c) 

- if aq.int(c.i) 
than trua 

•Isa 

If dividas.avanly(n.c) 
than falsa 

•Isa has.no.divlsors(n.c - 1) 
in 

has .no .di visors (n.n - i) 


Do we now know what the types of is.prtme 
and has.no.divisors are? 


Now it is easy because we know that 
has.no.divisors produces a bool. 


is.pnmc : 
ini —* bool 


has.no.divisors : 
(ml * ini) — bool 


Here is another long chain link. 

fun primes(n) 

= if is.prime(n + 1) 

then Link(n + 1,primes) 
else primes (n + 1) 


primes : 
int —* chain 


What is the value of 
c/iam_ifem(12,pnmes(l))? 


Do you like rabbits? 


Perhaps not to eat but to pet. 


Functions Are People. Too 
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Here is how to make more rabbits. 1 

fun fibs(n)(m) 

= Link(n + m,fibs(m )) 


It seems to consume two things, called n and 
m. Since we add them together, they must 
be inis. 


What does fibs consume? 

1 In the Liber abaci, Leonardo of PUa (1175-1250). «bo 
known as Fibonacci, describes the following problem. A pair 
of rabbits is placed in a pen to find out how many offspring 
will be produced by this pair in one year if each pair of 
rabbits gives birth to a new pair of rabbits each month 
starting with the second month of its life. The solution is 
known as the Fibonacci Sequence of numbers. 


What does fibs produce? 


That's easier. It produces a chain. 


So why Isn't thus the type of fibs ? 
fibs: 

(ini • int) — chain 


Because there is no comma between n and 
m; instead there is )(. 


What must be the type of fibs(n)? 


We know that Link consumes an int and a 
function from ini to chain. So, fibs(n) must 
be a function from int to chain. 


So what is the type of fibs '? 


It really 



just one int. 


And then? 


It produces a function from ini to chain. 


So what is the type of fibs? 


Now it is obvious. 
fibs : 

ini —* (int —* chain) 
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Yes, and we just found out about another Yes, we did. 

notation for building functions that return 

functions. 


What is the value of 


Link(0, fibi(l))? 


ioa 


If you know this, take a short nap. 


To determine its value, we only need to know ° 7 Yes. but what is it? 
the value of fibs(l). 


What type of thing is fibs(l)? 


It is a function of type int -* chain. 


Here is such a function. 100 It is like fibs, without (n). 

fun fibs.l(m) 

= Link(l + mjibs(m)) 


Where does it come from? 


What showed up in place of n? 


Every place where n appeared in the 
definition, except behind fibs , there is a 1 
now. 


We think of fibs.i as the value of fibs(l). 

That is simple enough. 

What is the value of 

The same ns the value of 

fibs( 1)0)? 

fibs-'Oi- 

Do you see the underscores under the l's? 

Yes. and the 1 without an underscore has 
been consumed in the process. 


Functions Arc People . Too 
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What is the value of 

fibs.l(1)7 

L\nk(2Jibs.l ), a chain. 

What is the value of 

The same as the value of 

fibs. 1(2)? 

Link(3 v /i6s(2)). 

What is the value of 

It is a function from tnt to chain. 

fibs( 2)7 


Define fibs.2. 

This is easy as pie. 


fun fibs.2(m) 


| = Link(2 + mjibs(m)) 

Don’t forget the ice cream! 

"• Okay. 


The Seventh Moral 

Some functions consume values of ar¬ 
row type; some produce values of arrow 
type 
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Do you know fish lists and int lists! 


The datatype definition of list is sin old 
family friend of ours. 



First, we put them together in a new Then comparing them is easy. 



Here is subsLint. 


fun Jti6*LMf(n,a,Empty) 

= Empty 

| subsLint(n,a.Cons(e,t)) 

= if eq.int{a,e) 

then Cons(n,subsLmt(n,a,t )) 
else Cons{e,subst-mt(n,a,t)) 


It basically looks like subsLint and has a 
similar type. 


fun subsLorapl(n,a, Empty) 

= Empty 

subst.orapl( n,a.Cons( e,t)) 

= if eq.orapl(a.e) 

then Cons(n.subsLorapl(n,a,t)) 
else Cons(e.subsLorapl(n,a,t )) 


subsLint : 

(int * int * int list ) —* int list 
Define subsLorapl. 


subsLorapl : 

(orapl * orapl * orapl list) —» orapl list 


Bows and Arrows 
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Would subst.bool be more difficult to define? 


No, we would have to substitute bool for int 
everywhere in subsLint. 


Would subsLnum be more difficult to define? 


6 


No, we would have to substitute num for int 
everywhere in subsLint. 


Would subsLfish be more difficult to define? 


No, we would liave to substitute fish for int 
everywhere in subsLint. 


Are you tired of all this duplication yet? 


Yes, is this going somewhere? 


Okay, so let’s not duplicate this work over 
and over again. 


fun subst(rel l ,n,a,Empty) 

= Empty 

| subst(rel,n,a,Cons(e,t)) 

= if re/(a,e) 

then Cons (n,subst(nl,n,a,t)) 
else Cons {e,subst(rel,n,a,t)) 


It is a function that consumes a value with 
four components, and that's what we can set? 
immediately: 


(- 


■) 


What Ls the type of subst ? 

1 A better nam* for r«l w r«latloo. 


What do we know about the last component * It must be a list, but since we don’t know 
that subst consumes? what kind of elements the list contains, wc 

use q list : 

(_*_*_* Q list) — _ 


How is the type of the result related to that " U rel always produced false, then the answer 
of the fourth component? would have to be identical to the fourth 

component consumed. So, the type on the 
right of —* must be a list: 

(-*-*_* a Ust) —» q list. 
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What does a mean here? 


12 


Does that imply anything else? 


Does that mean the type of a is a? 


Does that mean we don’t know what kind of 
value it is? 


When is o different from /3? 


What is the type of rel? 


Bow's a nd Arrows 


If subs/ consumes an int list, it produces an 
int list: if it consumes a num list, it 
produces a num list ; and if it consumes a 
(num list) list, it produces a (num list) list ; 
and if it consumes an orapl list, it produces 
an orapl list. 


Yes, since eip 2 and exp 3 in 
if expi 
then exp 2 
else ezp 3 

are of the same type, this also means that n 
and € are of the same type. Since c is an 
element of the consumed list and is therefore 
of type a, so is n: 

(-* a •_* a list) —* a list. 


Who knows? We don’t know what rel 
consumes. 


Yes. and so we could agree that its type is {3: 
(_• a * 0 * a list) —* a list. 


On occasion, (3 will stand for the same type 
as o. and sometimes it will be a different 
type. 


It is a function that obviously produces bool 
and consumes a J and an a. And we don’t 
know anything more about its type. 
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Describe in your words what that type says 
about subst. 


You knew that we would use our words: 

“The type says that subst consumes a value 
with four components: a function, an 
arbitrary value of type o, another 
arbitrary value of type 0, and a list. But, 
all elements in the list must have the type 
q, and the function must consume pairs of 
type 0 * a.” 


Anything else? 


Of course, the result of subst is a list whose 
elements are of the same type as the first 
arbitrary value. 


Suppose we want to substitute one mt in a Then, we need to give subst a function that 
list of ints by some other int. consumes two inis as its first argument. 


Do we know of such a function? 


Yes. we do: eq.int. 


So how do we use subst to substitute all 
occurrences of 15 in 
Cons(15, 

Cons(6. 

Cons(15, 

Cons(17, 

Cons( 15, 

Cons(8, 

Empty)))))) 

by 11? 


We use eq.int as rd and otherwise act as if 
we were using subsLint: 
subst (eq.int, 11,15, 

Cons( 15, 

Cons(6, 

Cons(15, 

Cons( 17, 

Const 15. 

Const 8. 

Empty))))))). 


And that produces? 


A list with three ll’s. 
Cons(ll. 

Cons(6, 

Const 11, 

Const 17, 

Cons( 11, 

Const 8. 
Empty)))))). 
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What is the value of 
lessJhan{ 15,17)? 


true. 


Is Icss.than a function that consumes a Yes. that’s right, 

two-component value with both components 
being m/s? 


Can wo use it with subst ? 


Yes, we can substitute all m/s in an ini list 
that are greater than or equal to some other 
int. 


So how would we substitute all numbers not ‘ We use less-than as rrl and otherwise act as 


less than 15 in 
Cons(15, 

Cons(6, 

Cons(15, 

Cons(17, 

Cons(15. 

Cons(8. 

Empty)))))) 

by 11? 


if we were using subsLint : 
subst ( less, than , 11.15. 
Cons(15, 

Cons(6. 

Cons( 15, 

Const 17, 

Cons! 15, 

Cons(8, 

Empty))))))). 


And what does that produce? 


A list with an 11: 
Cons(15, 

Cons(6, 

Cons( 15, 

Const 11, 

Const 15, 
Cons(8. 
Empty)))))). 


What is the value of 
tn-ranye((ll,16),15)? 


true. 


What does in.rangt do? 


It determines whether or not some number is 
in some range of numbers. 
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And what is pred ? 


It is a function that consumes one value, an 
element of the list, and produces a bool. 


subsLpred : 

((a —* bool) * a * a list ) —* a list 


Describe in your words what that type says 
about subsLpred. 


Here are our words again: 

“The type says that subsLpred consumes a 
value with three components: a function, 
an arbitrary value of type a, and a list. 
But, all elements in the list must have type 
o, and the function must consume values 
of that type." 


Anything else? 


Same as before. The result of subsLpred is i 
list whose elements are of the same type as 
the arbitrary value. 


So how do we use subsLpred to substitute all We need a function that compares the value 
occurrences of 15 in it consumes to 15. 

Cons( 15, 

Cons(6, 

Const 15, 

Const 17, 

Const 15. 

Cons(8. 

Empty)))))) 

by 11? 


Define this function. 


Easy. 

fun is.l5(n) 

= eq.int(n. 15) 


is.15 : 
int —♦ bool 
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Does in-range consume an inti 


That's what its type says. 


Can we use it with subsLpred ? 


Well, we could as long as the third 
component consumed by subsLpred is an int 
Itst. 


So how would we substitute all numbers 
between 11 and 16 in 
Cons(15, 

Cons(6, 

Cons(15, 

Cons(17, 

Cons(15, 

Cons(8. 

Empty)))))) 

by 22? 


We use in.range-11.16 as pred: 
subsLpred (in.range _ 11.16,22, 
Cons(15, 

Cons(6. 

Cons(15, 

Cons(17, 

Cons(15, 

Cons(8. 

Empty))))))). 


And what does that produce? 


A list with three 22’s: 
Cons(22, 

Cons(6 

Cons(22, 

Cons(17, 

Cons(22, 

Cons(8, 

Empty)))))). 


We recommend dinner now. How alnnit some 
Indian lamb? 


Don't forget the curry. 


Did you have your fill of curry? Then take a 
look at this variant of in.ninge. 11 . 16 . 

fun in-range.c(small.large)(x) 

= if less.than(small,x) 
then less.than(x,large) 
else false 

What is different about it besides its name? 


It is like in-range. 11.16. but it doesn't 
contain 11 and 16. Instead, it first consumes 
a pair of mis and then another inl. ] 


Sadi function* are said to bo cumcd. A bolter name for 
this function would be ln_ranga-Curry after Haskell B 
Curry (1900 1982) and Muse* Schonfinkrl (1889-1942). 
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So what is ti»e type of in.range.c7 


What is tiu* purpose of the underlined 
parentheses? 

Does that mean that in.rungc.c is a function 
that consumes one pair of in/s? 


What does t he function that it produces 
consume? 

What is the value of 
m_mn</r_c(11.16)? 

Can you define a function that is like 
in. rnn^e_c(ll,16)? 


So what is the difference between 
in.range. 11.16 
and 

in.rangc.c.11.167 


We need to substitute just one * with an —* 
in the type of m-range. 



They surround the type of what in.range.c 
produces. 


Yes, and it produces a function. 


That function consumes an in/, just like 
in.range.lL16. 


It is a function, and that function is just like 
in-range. 11.16. 


We copy in-rangc-c and substitute 11 for 
small and 16 for large. 

fun in.range.c-11.16(x) 

— If less.than(11,x) 

then less.than(x,16) 
else false 


None. 


Chapter 8 
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What is the value of 
combine( 

Cons(l, 

Cons(2, 

Cons(3, 

Empty))), 

Cons(5, 

Cons(4, 

Cons(7. 

Cons(9. 

Empty)))))? 


That's no problem: 
Cons(l, 

Cons(2, 

Cons(3, 

Cons(5, 

Cons(4, 

Cons(7. 

Cons(9, 

Empty))))))). 


What is the value of 
combine ( 

Cons(l, 

Cons(2, 

Cons(3, 

Empty))), 

Cons(12, 

Cons(ll, 

Cons(5, 

Cons(7, 

Empty)))))? 


It starts with the same numbers: 
Cons(l, 

Cons(2, 

Cons(3, 

Cons(12, 

Cons(ll, 

Cons(5, 

Cons(7, 

Empty))))))). 


Define combme-c. 


That must be the function that consumes one 
list and produces a function that consumes a 
list and then produces the combined list. 


Yes. 


That's easy then. 

■ “““ 
fun combine.c(Empty)(l2) 

= 12 

| combine.c(Cons(a,ll))(l2) 

= Cons {a.combine.c(ll)(l2)) 


combiner : 

a list —* (a list —* a list) 
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What is the value of 

It is equivalent to the value of 

combine.s ( 

make.cons (1 

Cons(l, 

make.cons (2, 

Cons(2, 

make.cons(3. 

Cons(3, 

base))). 

Empty))))? 


What is the value of It is this function. 

make.cons(3, 

bane)? fun prefix^(12) 

= Cons(3 ,base(l2)) 



Then what is the value of No big deal. 

make.cons( 2. 
prefix.3)? 



fun prefix.23(l2) 

= Cons(2.prrfir.3{l2)) 


So what is the vnlue of 
make.cons {l, 
prr.Jix.23 )? 


A function that consumes a list and prefixes 
that list with 1, 2. and 3. 

fun prefix. 123(12) 

= Cons(\.prefix.23 (12)) 



int Hit —* mt Itst 


Bows and Arrows 
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Is prefix.123 equal to prefixer.123 ? 


120 


Extensionallv. yes. Both prefix a list with 1, 
2, and 3. Intensionally. no. The latter just 
Conses the numbers onto a list, but the 
former has to shuffle the list around with 
make.cons. 


Can we define a function like combines that ia ' We'd rather have dessert. How about you? 
produces prefixer. 123 when used with 
Cons(l, 

Cons(2, 

Cons(3, 

Empty)))? 


What is the difference between functions of Easy, they have different types, 
type 

type! — type* — type 3 
and those of type 

(type, * type?) — typea? 


Seriously. The first kind of function consumes two 

values in two stages and may determine some 
aspect of the value it produces before it 
consumes the second value. The second kind 
of function consumes two values as a pair. 


Aren’t functions a lot of fun? 


IM 

They sure are. 


Rest up before continuing, unless you are See you tomorrow, 

exceptionally hungry. 


The Eighth Moral 

Replace stars by arrows to reduce the 
number of values consumed and to in¬ 
crease the generality of the function de¬ 
fined. 
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Did you ever play “Steal the Bacon?" 


No, what about it? 


We just invented “Find the Bacon. 


How does it work? 


We need to practice first. 


What are we waiting for? 


Lists. 


Lists are easy, they have been done before. 

datatype a list = 

Empty 

! Cons of a * a list 


And we also use this datatype. 

datatype box 1 = 

Bacon 
I lx 1 of int 


There is some Bacon. 


Iktt*r MM for the** *rc b»con.or.ind«x nnd Index, 
respectively. 


What is the value of 
where, is ( 
Cons(lx(5), 
Cons(lx(13), 
Cons( Bacon, 
Cons(lx(8), 
Empty)))))? 


3, right? 


What is the value of 
where.is( 

Cons( Bacon, 
Cons(lx(8), 
Empty)))? 


1, because Bacon is the first thing in the list. 
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What should he the value of 
where.is( 

Cons(lx(5), 

Cons(lx(13), 

Cons(lx(8). 

Empty))))? 


Here is the function is.bacon. 

[- 

fun is.bacon ( Bacon) 

= true 

| ta_6aam(lx(n)) 

= false 

is.bacon : 
box — bool 

Use it to define where.is. 


Use your definition to determine the value of 
where, is ( 

Cons(lx(5), 

Cons(lx(13) f 

Cons(lx(8), 

Empty)))). 


What were we expecting? 


How did that happen? 


We should forget these additions when we 
return 0, shouldn’t we? 


134 


0, because there is no Bacon in the list. 




This shouldn't be a problem. 



Oh no. It’s 3. 



0. of course. 

When wherejs produced 0, three additions 
were waiting for the result: 

1 + 

1 + 

1 + ... . 

That would be great. 


Chapter 9 
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There is a way to do precisely that. Take a 
look at these definitions. 

exception No.bacon of ini 


They contain two new special words: 
exception and raise. 


fun whereJs( Empty) 

= raise Nobacon(O) 

| whereas (Cons{a-boT, re at)) 
= if ia.bacon(a-boi) 

then 1 

else 1 + wherc.is(rcst) 


Use your own words to describe what 
exception means. 


You knew that we wouldn’t let you down. 

Here are our words: 

"The exception definition creates a 
constructor just like a datatype definition 
hut for exceptional values. The expression 
No.bacon(lO) creates such an exceptional 
value.” 


What does raise 



Can we just watcli it in action? 


Yes, let's slowly determine the value of 
where.u( 

Cons(lx(5), 

Cons(lx(13), 

Cons(lx(8), 

Empty)))). 


Yes. let's do that. 


Since the list is constructed with Cons, this is Which in turn is equal to 
equal to 1 + 

1 + whereJs( 1 + «nhere_w( 

Cons(lx(13), Cons(lx(8), 

Cons(lx(8), Empty)). 

Empty))). 


Oh No! 











Correct. And that is equal to 
1 + 

1 + 

1 + where _ is ( 

Empty). 


Now raise happens: 

1 + 

1 + 

1 + raise No_bacon(0). 

But what does that mean? Isn’t it nonsense? 


because we can think of raise ... as 
having the necessary type, whatever it 
may be. 


We have never seen anything like that before. 
Still, the answer does not explain what the 
expression means. 


The meaning of raise ... is equally simple. 
It does not have a value. 


It has no value? No wonder it has whatever 
type it ueeds to have. But that is strange. 


So next we have 
raise No.bacon(O). 

Whore did the additions go? 


They’ve disappeared. 


Good. Now we know that 
xvhcrr.~is( 

Cons(lx(5), 

Cons(lx(13), 

Cons(lx(8), 

Empty)))) 

has no value but is equal to 
raise No.bacon(O). 


Does that mean we didn't make any 
progress? 


We made some progress. The additions are Yes. but we wanted an int; we wanted 0. 
gone. 


Don’t worry, we will get there. Did you Yes. we said that, 

notice that we said where.is does not 
produce a value when it consumes a list 
without Bacon? 
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But didn't we say that where.is produces an Yes. but how can we say that it doesn't 
inti produce an mt for everything that it 

consumes? 


We can’t. We just know that when we say 3 Aha. that clarifies it. 
where.is is of type 
(box list ) —» int, 

we include the possibility that the function 
raises an exception. 


Is that jdl that bad? 

74 

It depends. If we only determine the value of 
where.is( 

Cons(lx(5), 

Cons(lx(13), 

Cons(lx(8). 

Empty)))), 


we are just fine. If we get a number, we know 
that the list contains Bacon and where it is. 

If it raises an exception, we know there is no 
Bacon. 

How do we know when the function raises 
an exception? 

” Good question. 

We need yet another ingredient called 

handle. 

30 

And how do we use this new ingredient? 

Like this: 

(w/jere_is( 

Cons(lx(5), 

Cons(lx( 13), 

Cons(lx(8), 

Empty)))) 

handle 

No.bacon(an_m£) 

=> l anJnt). 

It seems like we are looking at a new form of 
expression: 

(exp i handle pattern =$■ exp?). 

But what docs it mean? 

1 This is a two-rharactrr symbol: ->. 
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What do you think it means? 


We know that the handle expression 
consumes exceptional values. So, when 
where-is( 

Cons(bc(5), 

Cons(lx(13), 

Cons(lx(8), 

Empty)))) 
is the same as 

raise No_bacon(0), 

it matches the handler pattern and 
produces whatever is to the right, of =*. 


And how does No.bacon(O) match 
No-bacon(an_in<)? 

13 

That's barely worth a question. It’s certainly 
not worthy of an answer. 

Let an.int stand for 0. Then what is the 
value in our example? 

£4 

Exactly what we want: 0, which is what is to 
the right of =* with an.int replaced by 0. 

What is the value of 
(where.is( 

Cons(lx(5), 

Cons( Bacon. 

Cons(lx(8), 

Empty)))) 

handle 

No.bacon (anAnt) 

=> an.int)? 

“ It is 2, 

because Bacon is in the second position 
and no exception is raised. 

What kind of value does 
(where, is ( 

•••) 

handle 

No.bacon(an.m<) 

=> anJnt) 

produce if the value consumed contains 
Bacon? 

An int. 
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Put in your own words what it means to say 
some function / is of type 
_—» out. 


Does every function type have this extended 
meaning? 


Time to define find, isn’t it? 


Good point. Define it. 


Why is the first answer a blank? 


Let's raise an exception. Here is its 
definition. 

exception Out.of.range 
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We say: 

“If / produces a value, that value is of type 
out. But. the use of / may be meaningless 
or it may raise an exception.” 


Absolutely. 


Don’t we need a function like chain-item for 
lists? 


Here is a part of it. 



Because it is not clear what list-item 
produces when the list is empty. 
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Does this definition differ from ain't hi ng we Very, 
have seen before? 


fun 


find (n,boxes) 

= check (n, boxes, lisL item (n , boxes )) 


and 


check (n. boxes , Bacon) 


= n 


check (n. boxes . Ix( i)) 
= find (i.boxes) 


find : 

(int * (box list)) —* int 


check : 

(int * (box list) * box) — int 


That’s correct . Does the definition of box 
refer to itself? 


Does the definition of find refer to itself? 


Yes, through check. 


Isn’t that unusual? 


We have not seen that combination before. 


Does that mean the definition of find That's right, it doesn't, 

matches neither the outline of the datatype 
box nor that of the datatype box list ? 


Then what is the reference to find used for? It is used to restart the search for Bacon with 

a new index. 


Isn’t this unusual? 


Very. 


Oh No! 












And that kind of reference is precisely why a That settles it. 
use of find may be meaningless. 


What is the value of 

where t is 

Cons(lx(5), 

Cons(lx(4), 

Cons( Bacon. 

Cons(lx(2), 

Cons(lx(7), 

Empty)))))? 

75 1 

Is t going to change? 1 

1 We can write 
ral t • 

Cnu(Ix(B>, 

Cona(Ix(4), 

Cobs (Bacon, 

Cobs(Ix(2), 

Cons(Zx(7), 

Enpty))))) 

in order to associate the name 1 with this value 

No, it will stay the same for the rest of the 

The expression is the same as the value of 

chapter. So what is the value? 

find(S,t). 

And then? 

Th«*n it is the same as find(7,t). 

And now? 

An exception is raised. 

And what does that mean? 

"* Every time find raises an exception, the 


bacon can’t be found. 

Let's try something new. We will restart the 

What does that mean? 

search at n div 2. 


What is the value of 8 div 2? 

Obvious: 4. 

What is the value of 7 div 2? 

Not so obvious: 3. 

How can we restart the search when the 

ftj 

We can use a handler. 

number is out of range? 
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Good. Fill in the blank. 

8* 

Okay. 

fun find (n, boxes) 


fun find(n,boxes) 

= ( check ( n , boxes, list _ item (n. boxes )) 


= (check( n , boxes ,lisLitem(n, boxes )) 

handle 


handle 

Out.of.range 


Out.of .range 

=> ) 


find(n div 2,boxes)) 

and 


and 

check ( n , boxes, Bacon) 

= n 


check (n, boxes . Bacon) 

| check(n,boxes,\x(i)) 


= fl 

1 checkin, boxes, lx( t)) 

= find (i, boxes) 

-- 


= find(i, boxes) 


find : 

(inf * (box list)) -* int 

_____ 

• 


check s 

(int * (box list) * box) —* int 

• 


Now the plot really thickens. 


•S 


Like pen soup? 


Now what is the value of 
find(U)l 


It is the same as the value of 

handle 
Out_of-range 
=> find( 1 div 2,0). 


And then? 


Then it is the sAine as 

((find(7,t) 

handle 
Out.of.range 
=> find( 5 div 2,<)) 
handle 
Out_of.range 
=*> find (1 div 2.0). 


Oh No! 
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And now? 


The next stop is 
(((cAed.-(7,f,/isLitem(7,t)) 
handle 
Out.of .range 
=> find (7 div 2,0) 
handle 
Out.of .range 
=* find {5 div 2,t)) 
handle 
Out.of .range 
=* find( 1 div 2,0). 

And here lisLitem(7,t) raises an exception. 

What does that mean? It means HsLitem(7 1 t) doesn’t have a value 

but is equal to raise Out.of.range, so that we 
get 

(((chcck(7,t, raise Out_of_range) 
handle 
Out .of .range 
=> find(7 div 2,0) 
handle 
Out .of.range 
=* find(5 div 2,0) 
handle 
Out.of .range 
=> find( 1 div 2,0). 

Does check{7,t,. .. ) disappear, too? Yes, raise does that. 

How is the exception handled then? *' By matching with Out.of.range. 

Yes, and then we evaluate find( 7 div 2,0- ” Easy: 

What is the next expression? ((Jmd(3.t) 

handle 
Out .of.range 
=9- find {5 div 2,t)) 
handle 
Out.of.range 
=> /ind(l div 2,0). 
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Next? 

93 

We have found the Bacon, which means the 
result is 3. 

Where have the handlers gone? 

94 

Since find(3,t) has a value, the handlers 



disappear. 

Where did we stop while we were searching 

93 

At 1, 5, 7, and 3. 

for the bacon? 


• 

Could we define a function that produces 

96 

Yes, as an int list. 

that sequence for us? 



Hang on! 

9? 

Is it going to get more complicated still? 

Yes! Look at this definition of path. 

96 

No, that much is obvious. 

fun path{n,boxes) 


fun path(n.boxrs) 

= Cons(n, 


= Cons(n, 

( check ( n , boxes , list-item (n , boxes) ) 


( check ( boxes.list-item ( n , boxes ) ) 

handle 


handle 

Out.of.range 


Out .of .range 

=> path(n div 2.boxes ))) 


path(n div 2,boxes))) 

and 


and 

check (n . boxes . Bacon ) 


check ( boxes . Bacon ) 

= Empty 


= Empty 

| check ( n , boxes , lx( j)) 


| check (boxes.\x(i)) 

= path(i,boxes) 


= path(i,boxes) 


■ 1 ' " l 

path : 

path : 

(int • (box list)) — (int list) 

(int * (box list)) —* (inf list) 

• 

• 

-—- 


- | 

check : 


check : 

(int * (box list) * box) —* (int list) 

• 


((box list) * box) —* (inf list) 

• 


Do we still need to have n around in check ? 


Oh No! 
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99 

Describe in your own words how this function 
produces the list of intermediate stops. 

What? 

Neither can we. So let’s just determine the 

Well, list-item produces lx(5), which means 

value of 

that it is equal to 

path(l.t). 

Cons(l, 


{path(5,t) 


handle 


Out .of .range 


=> path( 1 div 2,t))). 


And then? 

Then it is the same as 

Cons(l, 

(Cons(5, 

(poM(7,0 

handle 

Out.of.range 
=* path( 5 div 2,0)) 
handle 

Out.of.range 
=* path{ 1 div 2,0)). 

And the next stop is 

m 

Right and we get 

Cons(l, 

Cons(l, 

(Cons(5, 

(Cons(5, 

(Cons(7, 

(Cons(7, 

((chcck{t,list.item(7.t)) 

((cAed;(f.raise Out.of.range) 

handle 

handle 

Out.of_range 

Out.of .range 

=> path( 7 div 2,0))) 

=> path{7 div 2,0))) 

handle 

handle 

Out.of.range 

Out.of .range 

=> path(b div 2,0)) 

=> path(5 div 2,t))) 

handle 

handle 

Out.of.range 

Out.of .range 

=> path( 1 div 2,0))- 
Here list..item{7,t) raises an exception. 

=> path( 1 div 2,0)). 
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What is the value of plus( 0.1) 


1. But Isn’t that obvious? 


I 


Yes, it's obvious, so let’s move on. What is 2. which is also one more than plus( 0,1). 
the value of p/us(1,1)? 

Correct. Here is the final question. What is 3. which is one more than plus(l,l). 
the value of plus( 2.1)? 


Here is a definition of plus based on the 
previous questions. 

fun plus(n,m) 

= if is.zero(n) 

then m 

else succ(plus(prvd(n),m)) 

| plus : 

(ml * int) -* int 


They are easy functions. 



exception Too-small 


It relies on three help functions: ts.zero, 
pred, and sure. 1 Define these help functions. 


fun prrd(n) 

= if eq.int(n.O) 

then raise Too-small 
else n — 1 
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Why docs prtd raise an exception when it 
consumes 0? 




We only work with non-negative infs, so 0 
does not have a predecessor. 


Define the function plus in the same style, 
hut use numa in place of ints. 

datatype num = 

Zero 

One.more.than of num 


Mere are the help functions that we need. 

fun w.zero(Zero) 

= true 

| is.zero(noLzero) 

= false 


With those, it is a piece of cake. 

fun plus(n,m) 

= if is. 2 ero(n) 

then m 

else succ(plus(pred(n),m)) 


plus : 


(num » num) —* num 

• 


is.zcro : 

num —* bool 


exception Too-small 


fun pm/(Zero) 

= raise* Too .small 
| />mi(One.more-than(n)) 


p red : 

num — num 


fun succ(n) 

= One.more.than(n) 


succ : 

num —* num 
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Isn’t it curious that the two definitions of 
plus are identical? 

Yes, and that's good. 

Why? 

Because the functions are closely related. 

They produce similar values when they 
consume similar pairs of values. 

What is the value of 

PM 2,3)? 

This is nonsense. The last definition of plus 
consumes a pair of nums and produces one. 

It cannot be used with infs. 

What is the value of 
plus{ 

One.mofe.than( 

One.more.than( 

Zero)), 

One.more_than( 

One.more.than( 

One.more.than( 

Zero))))? 

Now we are making sense. It is 

One-more .than ( 

One.more.than( 

One.more-than( 

One.more.than( 

One.more.than( 

Zero))))). 

Isn’t it unfortunate that we can’t use the two 
versions of plus at the same time? 

It truly is. But because the two definitions 
are identical, we must use building blocks 
with the same names, even though they 
consume and produce values of different 
types. 

Any ideas about what to do? 

There seems to be no other way to do this. 
For each definition of plus we need to have 
around the two sets of building blocks. Each 
set requires definitions for the same set of 
names. Because it is impossible to use a 
name for two different definitions, we cannot 
have two definitions of plus available at the 
same time. 
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There is a way and we are about to 
discover it. 


13 



If we call the type number, what 
of the building block sticc? 


is the type 



Good, and here is a way to write down these 
minimal requirements for our building blocks. 

signature JV 1 = 
sig 

type number 
exception Too-Small 
val sure : number —* number 
val prr.d : number — number 
val is^zero : number -* bool 
end 


A better name for this signature would be 
NUMBERS-BY-PEANO 
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Oh great. 


There are five: 
the type, 

the exception Too .small, 
the function succ , 
the function pred, 
and 

the function is-zero. 

The type of succ is 
number -* number. 

It has the same type: 
number —» number. 

It produces a bool: 
number —* bool. 

This Is clear enough. This notation specifies 
five things between sig and end, but what 
do signature, type, and val mean? 


Chapter 10 






What does () mean? 


Here are our words: 

“It means that we are defining a functor 
that does not depend on anything else." 

Good. We will see things other than (). W Okay, and then the meaning of “depend" 

should become clearer. 

So what is the notation ... > N about? " It states that the result of using the functor 

is a structure with signature N. 

Do both of these functors produce structures 1 Each struct ... end contains several 

that have the signature N? definitions, but at least one for number , 

Too.small. succ , pred , and is^ero. And. in 
terms of number, the three values have the 
right type. 

|| 

Now let's use a functor to build a structure. It is AT obviously, because the definition of 

NumberAsInt states that the functor 
produces structures with signature N. 


14 

And what does () l>ehind NumberAsInt Here are our words: 

mean? “It means that we are using a functor that 

does not depend on anything else.” 

Define the structure NumStruct . That’s obvious now. 

structure NumStruct = 

NumberA sNum() 


Why are we doing all of this? Is it because we want to use both versions of 

plus at the same time and. if possible, create 
them from the same text? 
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Do we now have both sets of building blocks 
around at the same time? 

Basically. Those for nums are collected in 
NumStruct and those for ints in IntStruct. 

Is this progress? 

M Yes. if we can now somehow create the two 
versions of plus from the two structures. 

Exactly. What is the type of plus? 

If number is the type, then plus has the type 
(number * number ) —♦ number. 

Define a signature that says that. 

Here is one. 


signature P 1 = 
sig 

type number 
val plus : 

(number * number ) —♦ number 

end 


1 A better name for thin signature would be 
PLUS-OVEXJfUHBER 

Here is the functor. 

The names of the other functors are always 
followed by (). This one, however, contains 
something else: 

(structure a-N : N). 

What does it mean? 

functor PON 1 (structure o.N : N) 

> 

P 

struct 

type number = a.N.number 
fun plus(n,m) 

= if a-N.is.zero(n) 
then m 
else a_N.succ( 

plus{a-N.pred(n),m)) 

end 

How does it differ from the functors we have 
seen so far? 


1 A better iMUiie for ihis functor would be PlusfhrerMuwber 
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The notation 

(structure a.N : N) 

says that the structure produced by PON 
depends on a structure oJV that has 
signature N. 


And that’s how we know that a.N contains a 
type, an exception, and three values: is-zero, 
succ, and prtd. 


What does a.N.is.zero mean? 


It means that we are using the value named 
is-zero from the structure named Q-jV. 


Correct. And how about 
a.N. number, 
a-N.succ, 
and 

a.N.prrd'! 


They refer to 

aJV's type number, 
a-N's value succ, 
and 

aJV's value pred, 
respectively. 


And how do we know that a.N contains all B«*cause it has signature N. 
these things? 


Let's build a structure from PON. 


We don’t know how to satisfy PON s 
dependency. 


Wc need a new notation. 

structure IntArith = 
POA(structurc oJV = IntStruct) 


Yet more notation? 


Yes. Explain in your words what it means. Our words: 

-Consider the functor’s dependency: 

(structure a_JV : N). 

It specifies that the structure created by 
PON depends on a yet to be determined 
structure a.N with signature N. Here we 
say that a_A stands for IntStruct." 
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Does IntStruct have the signature N? 



Good guess! It is nonsense. What do we 
know about IntAnthl 



The structure was created with 
NumberAsInt, which always produces 
structures that have signature N. 

The definition of NumberAsInt contains N 
below >. and that's what says the resulting 
structure has signature N. 

Easy. 

structure NumArith = 

POAT(structure a.N = NumStruct) 


This should be 3. 


What! Nonsense! 


We know that it is a structure that lias 
signature P. 

A structure with signature P has two 
components: a type named number and a 
value named plus. The value plus consumes 
a pair of numbers and produces one. 

Nothing, because the signature P does not 
reveal anything else about the structures 
that PON produces. 

Okay, that's clear. The function 
IntArith.plus consumes values of type 
IntArith.number, about which P doesn't 
reveal anything, but 1 and 2 are ints. 
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Can we determine the value of 
NumArith.plus( 
One_more_than(Zero), 
One.more_than( 
One.more_than(Zero)))? 


No. The function NumArrth.plus consumes 
values of type NumArith.number. , but 
One_more_than(Zero) 

and 

One.more.than( 

One.more.than(Zero)) 

are nums. 


Do we have the means to produce numbers 
of the correct type for either Int Arith. plus or 
NumA rith. plus ? 


How about the structures IntStruct anti 
NumStructf 


So what do we do? 


No. the two structures contain only one 
function, plus, and it assumes that we have 
numbers ready for consumption. 


They, too, provide only functions that 
consume existing numbers. 


Yes, what? 


Here is one way out. Let's use a larger 
signature. 


signature N.C.R = 
sig 

type number 
exception Too-small 
val conceal : int —» number 
val suec : number —* number 
val pred : number -* number 
val is-zero : number —* bool 
val reveal : number —* int 
end 


The signature N.C.R 1 requin* that its 
corresponding structures contain definitions 
for two additional functions: conceal and 
reveal. What can they be about? 



The function conceal consumes an int and Does reveal do the opposite? 

produces a similar number. 
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Yes, and opposite means that for any int 
x > 0, 

reveal(conceal(x)) = x. 


Oh, conceal is like (-) 2 (square) and reveal 
like sf- (square root) because for any int 
x > 0, 

V^ = I. 


Good. Here is the extended version of 
Number As Int. 

functor Number A slnt() 

> 

N.C.R 

struct 

type number = int 
exception Too-small 
fun conceal(n) 

= n 

fun 8ucc(n) 

= n + 1 
fun pred(n) 

= if eg_tai(n,0) 

then raise Too-small 
else n - 1 
fun is.zcro(n) 

= eq.int(n.O) 
fun reveal(n) 

= n 

end 

Define the extended version of 
Number A sNum. 


That requires a bit more thought. 

functor NumberA sNum() 

> 

N.C.R 

^ struct 

datatype num = 

Zero 

| One.more.than of num 
type number = num 
exception Too-small 
fun cont'eal(n) 

= if cg.int(n,0) 
then Zero 
else One_more.than( 

conceal(n — 1)) 

fun sticc(n) 

= One.more.than(n) 
fun pred( Zero) 

= raise Too_small 
| prcd(One.more_than(n)) 

= n 

fun is.zcro( Zero) 

= true 

| is. zero (a. num) 

= false 

fun re veal (n) 

= if is.zero(n ) 

then 0 

else 1 + reveal (prcd(n)) 

end 
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Let’s rebuild the structures IntStruct and ** Okay, here are the new versions of 
IntArith. NumStruct and NumArith. 


structure IntStruct = 

NumberAslnt() 

structure NumStruct = 

Number As Num () 


structure IntArith = 

POAT(structure a.N = IntStruct) 

IT- 

structure NumArith = 

PON (structure a-N = NumStruct) 


What kind of structures are IntStruct and * T Both have signature N.C.R. 
NumStruct? 


• * 

What kind of structure docs PON depend It depends on a structure with signature N. 

on? Isn’t this a conflict? 


Does a structure with signature N.CJl " It does, and N.C.R even lists those pieces 
provide all the things that a structure with that are also in N in the same order as N. 
signature N provides? 


Absolutely. And that's why it is okay to ° Okay, 
supply IntStruct and NumStruct to PON. 


What is the value of 

7 ‘ 1. 

NumStruct. reveal{ 

because NumStruct. conceal consumes an 

NumStruct.succ( 

int and produces a number for the 

NumStruct. conceal{ 0)))? 

consumption of NumStruct.succ. And 


NumStruct.reveal consumes a number and 


produces an int. 


What is the value of ” This should be 3, now. 

NumStruct. reveal( 

NumArith.plus( 

N umStruct. conceal (1), 

NumStruct. conceal^ 2)))? 
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Are there other forms of signature nonsense? Here is one: 

NumStruct.Zero. 

The signature doesn't say anything about a 
constructor Zero, so we can’t know anything 
about it either. 

Correct. ” What shall we do? 

We need to say that PON produces M And how do we do that? 

structures whose type number is the same as 
the type number in (uN , the functor's 
dependency. 


We connect the signature of the structure 
produced by PON to the structure on which 
it depends. 



Is 

P where type number = a.N.number 
a signature? 


Yes, it is a signature and therefore can be So here, the signature is like P but requires 

used below >. A where-clause refines what that number in the functor’s result must be 

a signature stands for. equal to a.N.number. 


And how do we make sure in struct ... end We define the type number to be the type 
that this is the case? number of the structure a.N's type number. 
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It looks okay. It seems to consume a 
structure that has signature N.C-R and 
another one with signature P. The structure 
that it produces seems to have signature J. 


Why is this definition nonsense? 


Still, it is nonsense. 


Why oh why? 


Suppose we use this functor with nums and 
IntArith. 


structure NPl = 

NP {structure o_A' = NumStruct 
structure a.P = IntArith) 


Now it’s obvious why the definition of the 
functor is nonsense. 


And that is? The function NumStruct. conceal would 

produce numbers as nums and IntArith.plus 
would attempt to consume those, which is 
nonsense. 
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You have reached the end of your introduction to computation with types and functions. While 
computation has been popularized over the past few years, especially by the Web and consumer 
software, it also has a profound, intellectually challenging side. If you wish to delve deeper into 
this side of computing, starting from a typed viewpoint, we recommend the following tour: 
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This is for the loyal Schemers. 


No, we wouldn't forget factorial. 


signature Ysig 
sig 

val Y : 

((a -* a) — (a — a)) — (a — a) 

end 


functor YfuncQ 
> 

Ysig 

struct 

datatype a T = Into of a T -* a 
fun K(/) 

= «(/)(lnto(ff(/») 

and 

= /(G(a)) 

and G(lnto(a))(x) 

= a(lnto(a))(x) 

end 


structure Ystruct 
= VTuncO 


I- 

fun mk-fact(/act)(n) 

= if (n = 0) 

then 1 

else n * fact(n - 1) 


What is the value of 

Ystruct. Y(mk_fact)( 10)? 
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